Top 10k strings from Utility Compilation 81 (19xx)(-).trd in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Compilations - Utilities & Educational & Various / Sinclair ZX Spectrum - Compilations - Utilities & Educational - [TRD] (TOSEC-v2007-01-01) /
Back to the directory listing
60 and after it disk is
60 This procedure can
60 DESTROY information,
23 144,144,144,144,144
12 FFFFFFFFFFFFFFFFFFFF
9 /*****************************/
8 :.SETV:.COL=27
8 ,BUFFER+512
7 ;"Routine in ROM";
7 :.COL=N:.PTBL:
7 /* */
7 push_bc();
7
6 GGGGGGGGGGGG
6 !+5?IS]gq{
6 char *s;
6
5 real *a,*b,*c;
5 M$="O.K. ":
5 ;"++++ 3agruzka ++++"
5 ;" "
5 /* Standard Function Library */
5 /* Hisoft C */
5 #-7AKU_is}
5 #######################################################################################################################
4 {p_poke(a,b,c);
4 yrlf`[VQLHD@=9630-+(&$"
4 real *a,*b;
4 hhhhhhhhhhhhhh
4 f$="Wwedite imq fajla":
4 XX0``lhphl
4 UUUUUUUUUUUUUUW
4 Olomouc 198
4 Arnost Vecerk
4 ;A$(I);" ";B$(I):
4 ;" SPRITES"
4 ;" ":
4 :.SETV:.COL=26
4 :.PTBL:.SET=3
4 :.PTBL:.SET=2
4 :.PTBL:.COL=16
4 :.COL=N:.SETV:
4 /******************************/
4 +"W\#"S\"K\6
4 #"a\"c\"e\>82
4 " "
4 Tape - Fil
3 y$=" ":
3 no manipulator attached!
3 d$+r$,s$+r$
3 b$(nas+lo,
3 YM+" ":
3 YC+CY,XC+CX;
3 WOULD USE A MAGIC BUTTON!
3 V5.01~~~~~V5.03
3 UNSUCCESSFULLY,
3 UNKNOWN SYSTEM VERSION
3 Trying to crash WRITE PROTECT...
3 THIS ROUTINE IS NON-RELOCATABLE
3 Select option:
3 SELECT BASE VERSION
3 RETRY~~ABORT~~ IGNORE
3 REMOVE WRITE PROTECT
3 PROGRAM MAY NOT WORK
3 OR CANCEL OPERATION
3 OPERATION ABANDONNED
3 ONLY AN IDIOT
3 O.K.~~~ CANCEL
3 N:.ATON:.PTBL:
3 Message about you
3 M$="YES. ":
3 M$="NO. ":
3 GGGGGGGGG;
3 GENERAL FAILURE READING
3 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF&
3 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
3 Enter new time:
3 EEEEEEEEEGGG
3 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
3 EEEEEEEEEEEEEEEE
3 DISK NOT PRESENT
3 DISK MAY BE NOT
3 DDDDDDDDDDDDDDD
3 CREG,(XS+SX+1
3 CREG,(SX+XS+1
3 C$=A$+"C":
3 BREG,(YS+SY+1
3 BREG,(SY+YS+1
3 BREAK KEY PRESSED
3 B$=A$+"B":
3 ;A@CBD$#!" x
3 ;" "
3 ;" "
3 :.PTBL:.COL=20
3 :.PTBL:.ATOF:
3 1605872050
3 .HGT=H:.LEN=L:.COL=X-(30
3 ,(OLD_ERR)
3 +(XC+CX)+(32
3 +((YS+SY+1
3 *SHT*SLN+5
3 *L):.ROW=Y-(30
3 ))))))))))
3 "book.hlp"
3 wpoke(0x5b04,b);
3 wpoke(0x5b02,a);
3 return rezult;
3 0xcd,0x2dd5,
3 0x32,&rezult);
3 --argv;
3
3
3
2 yyyyyyyyyy*
2 y;" Cokpa
2 y;" a mak
2 y$=" "
2 wy+whgt,wx+1
2 wy+whgt,wx+
2 wpaper;"Rabota s katalogom";
2 u;" LOAD SAVE DELETE VERIFY"'
2 t7EsD2sU4tURvsU6&`SCU525
2 snum=snum+0
2 r;" n-/namber/
2 qqqqqqqqqqqqqqq&
2 pEEEEEEEEEEEEEEEE/
2 pEEEEEEEEE9
2 ntek=ntek-
2 ntek=ntek+
2 need an lvalue
2 m-RAM"''" 6 cmpok-
2 kkkkkkkkkk
2 iiiiiiiiii
2 hhhhhhhhhhhhhhh$
2 ck:(A/B/C/D)
2 addr=45056
2 a$="2. Pri rabote s mag-nitofonom Wy movetezapisatx uve sozdan-nyj katalog na len-tu, zagruzitx staryjkatalog ili prowe-ritx tolxko {to sde-lannu@ zapisx."
2 a"'" F-/File/ om n-oq
2 a xapakmep
2 a qo n"'" E-/to End/om n qo ko
2 ``````````````````,
2 ``````````````````(
2 ``````````1
2 _colour(h,i)
2 XXXXXXXXXX
2 Tape loading error
2 TMPY,(YS+SY+1
2 TMPX,(XS+SX+1
2 Stop Tape
2 Start Tape
2 Speed L-H-
2 STape to Disk Copier
2 SSE-MEM<SSS
2 SPST>56831
2 SPST=51513
2 SPST=50304
2 Quit program
2 Out of RAM
2 OOOOOOOOO-
2 Name Type Length Start Prog
2 N:.ATON:.PTBL:.ATOF:
2 MMMMMMMMMMMMMMMM'
2 M$="O.K.":
2 M$="DO YOU WANT":
2 Insert the Disk into the Drive
2 Insert TARGET disk
2 GGGGGGGGGGDDDDDDDDDD
2 GGGGGGGGGG
2 Format disk
2 FFFFFFFFFFFF.
2 EEEEEEEEEEEEEEEEEEEEEE#
2 EEEEEEEEEEEE
2 EEEEEEEEEE
2 Disk to Tape Copier
2 Disk ready
2 Directory full
2 Diagnostics
2 DISTRIBUTOR PROGRAM
2 DDDDDDDDD4
2 DDDDDDDDD!
2 D4\LtD<LD4\
2 Change drive
2 Abort? Ignore?
2 A,B,C$,DUR:
2 A$="SPRITE2B":
2 A$="SPRITE2A":
2 A$="SPRITE OFF SCREEN":
2 A$="SPRITE NOT DEFINED":
2 A$="SPRITE ALREADY DEFINED":
2 A$=" OUT OF SPRITE MEMORY":
2 ?Gk\V :4!i2
2 ?DDDDDDDDD
2 ???????? ?
2 <<<<<<<<<<<<<<<<<<
2 ;/* Copyright (
2 ;"uniwersalxnyj paket pro-";
2 ;"SPRITE2B" ;
2 ;"SPRITE2A" ;
2 ;"SPRITE START ADDRESS = ";SPST
2 ;"Program (Basic + ..)";
2 ;"Pere{enx awtorow"''':
2 ;"LOADING : ";A$
2 ;"LOAD YOUR OWN SPRITES"
2 ;"LASER BASIC
2 ;"Insert disk in drive & press key":
2 ;"Insert Sourse Disk ";C$
2 ;"Insert Destination Disk ";C$:
2 ;"INSERT CARTRIDGE AND HIT A KEY":
2 ;"HORIZONTAL SCROLLING"
2 ;"EXECUTE LASER BASIC"
2 ;" INPUT SPRITE START ADDRESS"
2 ;" Navmite l`bu` klawi|u";:
2 ;" Koli{estwo zapisej - ";kol:
2 ;" PLEASE SELECT OPTION . "
2 ;" Navmite l`bu` klawi|u ":
2 ;" ";
2 ;" ":
2 :.WR1V:.SET=1
2 :.SR8V:.ATRV:
2 :.SPN=S:.PTBL:
2 :.SETV:.ROW=21
2 :.SETV:.PTBL
2 :.SETV:.COL=X+2
2 :.SCL=X:.PWBL:.SET=2
2 :.PTBL:.SPN=25
2 :.PTBL:.SPN=17
2 :.PTBL:.SET=5
2 :.PTBL:.ROW=16
2 :.PTBL:.ROW=12
2 :.PTBL:.HGT=4
2 :.PTBL:.COL=4
2 :.PTBL:.COL=30
2 :.PTBL:.COL=3
2 :.PTBL:.COL=28
2 :.PTBL:.COL=23
2 :.PTBL:.COL=15
2 :.PTBL:.COL=10
2 :.PTBL:.ATON:
2 :.POKE 62466
2 :.LEN=(N*2
2 55U/3RQWTs2W
2 3) izmenenie
2 2) wwod
2 148,144,144,144,144
2 145,32,145
2 144,144,144,144,149
2 1) incializaciq
2 0,#FF00,#FF00,0
2 0,":,#EA,#20,#7F
2 /Continue /
2 /---------/
2 /----------/
2 /-----------/
2 /* Copyright (C) 1984 Hisoft */
2 /* End Real Ariphmetics */
2 /* End Header */
2 /* */
2 .POKE 62464
2 .HGT=H:.LEN=L:.COL=X-(40
2 .ATON:.COL=19
2 -N):.ROW=(16
2 -N):.LEN=2
2 -N):.HGT=N+8
2 ,(_L2+TDISP)
2 ,(_L1+TDISP)
2 ,(SET_SIDE)
2 ,(INFB+#E3):
2 *L):.ROW=Y-(40
2 *(YC+CY)),ON
2 (INFB+#E7),
2 (INFB+#E3),
2 ("B:"+A$(I)),A$(I)
2 #CA,#31,#0D,#80,0
2 #AA55,#AA55
2 #80,#AA,1,0,#79,#22
2 #7UV1R7V5gVUV0B`UUcEBWTCUU%TRQRuBQU
2 #1414,#1414
2 ###~#fo###~#fo#~#fo
2 ###~#fo###~#fo
2 "to compile-
2 "book cat"
2 "autorcat"
2 "Name of screen";s$
2 "FILE NAME? ";A$:
2 "5";b$(nas+lo,
2 "23681",N:
2 "0,#0E,0,0
2 "'" P-/Progr./om n qo c
2 "'" B-/Block/ om
2 " If you choose
2 " IS CORRECT (Y/N) ?"
2 " IS CORRECT (Y/N) ?"
2 wse wwedeno werno ? (Y/N)
2 _setover(on);
2 Turbo+ installed by Kato
2 OASIS SOFTWARE"
2 Numbers of fails<100
2 CS+SS+U -
2 CS+SS+B -
2 COPY help YOU to copy files with a number of YOIR 5305 or other drives
2 Bytes Free
2 A.Dereshchuk Software 1989
2 = P/GRAPHICS
2 "MONITOR"
2 while (argc--)
2 static int c;
2 static char *result;
2 static char *cs;
2 return min;
2 fprintf(tek,s);
2 for (i = 0; i < 4; ++i)
2 char *a;
2 char *a, *b, *c;
2 argv = ¶m_byte_count + argc;
2 argc = param_byte_count/2 - 1;
2 FILE *fp;
2 fprintf(tek,"%c",es?s[i]:' ');
2 ...........
2 PRESS ANY KEY !
2 if (*argv < min) min = *argv;
2 **********************
2
2
2
2
2
2
2
2
2
1 ~~~~~~~~~~~~~~~~~
1 ~~Writing~~
1 ~~Reading~~
1 ~~OK ~ ~~~~ CANCEL
1 ~~ Options
1 ~SPR2 C
1 ~SPR$2 C0u
1 ~R@`T WvVV
1 ~HEAD 0 CYLLINDER ~~ ~
1 ~Checking~
1 }7#4QJZw ,
1 }3rWER*!cc`[email protected](hb?l
1 }(#[FNW`h{AP
1 |O?%t2[ewU
1 {zya{~bhi[sU
1 {wpoke(0x5b10,x);
1 {wpoke(0x5b00,s);
1 {wpoke(0x5b00,a);
1 {push(0x5b02);
1 {poke(addr ,data%256);
1 {int i; char es;
1 {inline(0xcd,0x2bf1,
1 {inline(0xcd,0x16bf);}
1 {/g#6d$*'<
1 {*cast(p_char)adr=val;}
1 zeus ChelpbootCedit.sysCview.sysCZeusFileZ
1 zde prikaz programujici PERIPHERAL INTERFACE pro vystup
1 zTH[M[>zLT8\
1 z0;N 144 -
1 z-80listC@
1 z$=" ":
1 yx|`qABWGDEVZIJKLMNOP
1 y;"T F C O P Y N e w":
1 y.,.!IP?g|iJ\@# +NLCunq?
1 xxxxxxxxxxxxxxxxxxxxxxxxxx
1 xxxxxxxx1w
1 xxxxxxxx1q
1 xDemoLas.Ba
1 xCurrent mask:
1 x3p`D @YW0`WUw`0UfeYU
1 x$="_nonamed":
1 wy,wx;"Rabota s dannymi o";
1 wy,wx;"1. Wywod wseh dannyh";
1 wy,wx;" 1. Rabota s diskowodom";
1 wy+y,wx+x;a$(i
1 wse wwedeno werno ? (Y/N)
1 wpoke(addr,data)
1 wpaper;d$;
1 wpaper;"[tenie instrukcii";
1 wpaper;"Konec raboty: uweren (D/N)":
1 wpaper;"Dlq wybora nuvnyh wam ko-";
1 wisE+5?q79
1 winks;" Priwet!";
1 window=8000
1 wfVcVU3%UPdRV
1 wRBFb%V3"U2D
1 wG_s)m3GWo3
1 vyber PORT, bit adresy A0
1 vu`VReu SV PU
1 void srand(n)
1 void qsort(list, num_items, size, cmp_func)
1 void puts(s)
1 void poke(address, value)
1 void long_set(a, n, d)
1 void long_multiply(c, a, b)
1 void long_init(a, n1, n0)
1 void long_copy(c, a)
1 void long_add(c, a, b)
1 void free(block)
1 void fputs(s, fp)
1 vkeep stre
1 version 3.5
1 vBASLA B
1 vAu&6p1"W#u0T
1 v4sS&vu%RB5
1 v0QfU`BUEQa
1 v$="2. Zagruzka kataloga"
1 u~tC\9NmfQK
1 uw"" ""@WeUPW%
1 usub57b606vw
1 use a predeclared structure for parameters
1 unsigned x;
1 unsigned strlen(s)
1 unsigned addr,data;
1 undefined variable(s)
1 undefined variable
1 undefined label:
1 ue&iUPPu%P@V
1 uWv``bUPUwWTU"$ e
1 uWv`"$ iUPQ
1 uWcUPWU'@#g`
1 uSPRITE2BC
1 uRtp`CuP"gP
1 u;"nopm 95,
1 u;"n"'" N"'" A"'" B"'" E"'" F"'" P":
1 u;"n"'" A"'" B"'" E"'" F"'" P"
1 u;" NORMAL ":
1 u1RPUE5UPU5Q$UUuPUT
1 u0UuU@VUcBC
1 typedef struct _header HEADER, * HEADER_PTR;
1 typedef int FILE;
1 typedef char real[5],*p_char,bool;
1 typedef char * __char_ptr;
1 type should be function
1 type len start prog
1 tostr(s,r)
1 toreal(rl,str)
1 too much initialisation data
1 to be available,
1 tkNY'Y<"9\
1 this variable was not in parameter list
1 tSPRITE2AC9
1 tGRAPH C
1 t;"T F C O P Y P o r t":
1 t;"44288";
1 t;"44032";
1 t;"41984";
1 t:^x<W!]xy
1 t5B@dC3e35%
1 t,;/* Tape header */
1 svwfUP`VUUu
1 sub(a,b,c)
1 structure cannot contain itself
1 struct _header
1 storage class not valid in this context
1 stiraemyj _lement
1 stiraemoe soedinenie :
1 step=step+1
1 star.soed.:
1 star.D= nowoe D? (0,1,2,3)
1 specifikaciq
1 soedineniq
1 soedinenie NR.:
1 soedin. NR.:
1 snum=snum+1
1 ser1=kol-ser+
1 secread C`
1 scr_l+TO_SCR+1
1 sWv'@5bWvU
1 sW20CAUEpWQ
1 sLASLOBJ C
1 sFvSS%Q PTdS
1 s7evW@wRRU
1 s7evW@5bWvP
1 s+tk]R^/4?DoX
1 s%`F0TE eTePEB
1 s$=s$+":":
1 s TR EqTBBUQbUU
1 real *r; int lng;
1 rasst.mevdu rqdami wyw.:
1 rasst. mevdu wywodami :
1 r_copy(a,b)
1 rRM mmg25uu
1 rD PVWcPGUpD
1 r;" - orpa
1 r;" 14 cmpok-
1 r;" /Clock/ Orpa
1 r52`s&4Fv6S
1 r*9CMWz/<,B35ccr
1 r$=b$(x2):
1 qwWgiP57%YPP2
1 qtTW@UteEe`f`VSSU0WSG
1 qtRSu&f0sVf
1 qLASOBJ C
1 qFvg! tqV@vE
1 qEUPSv&RSvveSUe%U
1 q,w,e,r,t,y,u,k,l:
1 q,w,e,r,t,y,u,i,o:
1 pwe]vV0 PtPE;tUP`f WS5?
1 pwRvvu`5VC PqtTW@UdE`fVSSU0
1 pro uvolneni magnetofonu vystupuje na PORT hodnota invertovana v kazdem bitu
1 printr(r,lng)
1 print=9950
1 predefined string
1 ppppppppppppppp
1 poke(adr,val)
1 plot(on,x,y)
1 pbstack overflow
1 p_poke(a,b,c)
1 pW]%`&uQ p[UP
1 pWRvvu`5VC
1 pQSWE$g]%`u27}S`[UPW`5QU[Us`u'PmW
1 pPU"Wr0r$PVu wwUTT@%TU"pfwVuR5PVW5t
1 pG]%`u27}7fVF @[UPW`5QU[w
1 pG#Swc @tP
1 pEEEEEEEEE:Y
1 pEEEEEEEEE:S
1 pEEEEEEEEE:
1 pEEEEEEEEE9I
1 pC#8U+EMl`x
1 pBU#5r3 reb
1 p@UVDpS4pA
1 p6;EOYx42@C9?k|dfq
1 p2=p2-ser:
1 p'Rvvu`uvSVc qtTW@UtedU`fVSSU0WSGCW
1 ot7VJ[Ki'2G
1 ot _lementa :
1 oro","qo 'Quick-9'."
1 or press ENTER to find
1 oqa"''" /Mode/ C
1 opm:";i,"Macka:";o
1 opisanie korpusow :
1 opisanie korpusow
1 oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
1 omaem ":
1 oSIpNOpC[pY
1 ntek=ntek-1
1 ntek=ntek+1
1 not ready/
1 not in switch
1 not in loop or switch
1 not in loop
1 not a preprocessor command
1 not a defined member of a structure
1 nomer obqz.soedineniq :
1 no arrays of functions
1 need a type name
1 need a pointer
1 need a constant expression
1 need a : to follow a ? - check bracketting
1 na"'" N-/Normal/
1 na"'" A-/All/
1 nLasBasicB
1 multiple use of identifier
1 multiple default statements
1 mult(a,b,c)
1 more... (press fire)
1 missing 'while'
1 missing ')' in function declaration
1 missing ' '
1 macro buffer full
1 m A0 nopma
1 line(on,dx,dy)
1 len_B+4;strt
1 len_B+4;len
1 l,,D54(/;+&?L
1 l then strike any key when ready ------ Insert Source Disk ------------ Insert Target Disk ------Alien Disk inserted.Replace Disk Insert Source and Target Disks
1 k}_IS%KU'YCM7i
1 korpus -NR. ?
1 korpus -NR. :
1 korpus -NR. :
1 kol-wo wywodow w rqdu :
1 kWO'[?_gS_
1 jycHERAIM]gj=j}tBYC(%2_ws}
1 jWUUUUUUUUUUUUW
1 jDCU 2.31B>:>:;
1 j;" ";i;" ":
1 isrtty89 C
1 isdm@SO0 6
1 io+++F+N!Xt
1 int strcmp(s, t)
1 int sign(n)
1 int rand()
1 int peek(address)
1 int min(param_byte_count) auto
1 int max(param_byte_count) auto
1 int ispunct(c)
1 int isprint(c)
1 int iscntrl(c)
1 int isascii(c)
1 int isalnum(c)
1 int atoi(s)
1 int abs(n)
1 imq _lementa: 3 simwola
1 imq _lementa:
1 illegal parameter type
1 iiiiiiiiiiiiiiyyyyyyyyyyyyyyxxxxxxxxxxxxxxhhhhhhhhhhhhhh<
1 i '.5<CJQX_fmt{
1 h~Next page~ Previous page~ Options
1 hsrtty$ C
1 hpv'/;ET'1
1 hodnota pro zastaveni
1 hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh
1 hhhhhhhhh3s
1 hhhhhhhhh3r
1 he wrong file, find another header
1 h-+%O\h{|L
1 h$="1. Zapisx kataloga":
1 grPuwp@T 0Uf3%qVveR
1 goto needs a label
1 gi/1+5\*06
1 gi/1+5?*86
1 gens3 C0u
1 generated code area is full
1 gaw` CUqPBQQ
1 gVe6cuF0Q U;4WD[S
1 gDCU 2.12BD
1 gDCU 2.02Bw2x23
1 g;w__s_/g#'/
1 g! RSQTSd`%EdP 5
1 fpGDuWu#upWUs'W
1 flam.muz C`
1 fiwjbrlgfRABRU_WVaIjklbhioN
1 fgyr.muz C`
1 ffffffwwfff
1 fffffffffffggfff
1 fffffffffff
1 fSRTTY 89B
1 f0;/* PSEUDOGRAFFIC */
1 f$="Wwodite biografi` awtora":
1 f$="Wwedite obrazec poiska":
1 f$="Wwedite nowoe nazwanie ":
1 f$="Wwedite na{alxnyj nomer":
1 f$="Wwedite nazwanie knigi ":
1 f$="Wwedite imq udalqem. awtora":
1 f$="Wwedite imq nuvnogo awtora":
1 f$="Wwedite imq awtora(ow)":
1 f$="Wwedite imq awtora":
1 f$="Wwedite imq awtora ":
1 f$="Wwedite bukwu":
1 f$="Wwedite awtora ~toj knigi":
1 f$;" LN-";lngt;:
1 f MON 35.B/"/"#
1 extern unsigned strlen();
1 extern char *strcat(), *strcpy(), *calloc(), *fgets(),*gets(),*sbrk();
1 expecting a primary here
1 existing line no:,the next valid line no: is used.Cal -culated GOTOs etc are highlit.":
1 ex af,af'
1 ex (sp),H
1 ewhi.muz C`
1 eu WgU bU!gPuTU
1 eqUrVPPdwU
1 eq. BASICa"''''
1 eq. BASICa"''
1 emoc.muz C`
1 eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
1 ee 700 Hz,
1 eb{xW3#GQ@
1 eU UQ%R%Qu%cP
1 eRg`SQTSUbT
1 eFUTUWpUW`TF
1 eEeu'GDW "p
1 e$="Wyhod":
1 e$="2. 3agruzka kataloga":
1 e xapakmep
1 e ubV2`4Fv6E
1 duplicate declaration of structure tag
1 duplicate declaration - type mismatch
1 duplicate declaration - storage class mismatch
1 duplicate declaration
1 dsstv1 CP@
1 dlina platy po Y [mm]:
1 dlina platy po X [mm]:
1 dlina korpusa po osi Y :
1 dlina korpusa po osi X :
1 div(a,b,c)
1 direct execution not possible when translating
1 demo BETA version 1.1
1 define include diagnostlist direct error translat
1 dalee ? (Y/N)
1 dalee ? (Y/N)
1 dR{Ok{)/ch
1 d3`PD PVRRU cb6
1 d$="1. 3apisx kataloga":
1 d$+r$,s$+r$#
1 crus.fnt C
1 cmwAK]G8!4
1 char s[maxin];
1 char *strcpy(dest, source)
1 char *strcat(base, add)
1 char *str;
1 char *sbrk(n)
1 char *s; real *r;
1 char *gets(s)
1 char *fgets(s, n, fp)
1 char *calloc(n, size)
1 char _rnum[4];
1 cc1 Cpb
1 cannot use this operator with float arguments
1 cannot open file
1 can only define identifiers as macros
1 can only call functions
1 c$=q$(c-127
1 c$="dannyh":
1 c$="Wyhod":
1 by YURIC 2.93
1 by Andrew MOA
1 bp$"& 3"UTBP$
1 bool rezult;
1 bool lt(a,b) /* a<b */
1 bool ge(a,b) /* a>=b */
1 bool equ(a,b) /* a=b */
1 beg,end-beg
1 beep(duration,pitch)
1 bad type combination
1 bad operand type
1 bad function return type
1 bad formal parameter list
1 bad declarator
1 bad declaration
1 bad character constant
1 bWPP2Wvu"`iUPPu%P@V
1 bV"QuUPUuQ
1 bTT4fciq_^@
1 b$="a.end":
1 b$(y2)=r$:
1 b$(x2)=b$(y2):
1 b$(kol-tr+
1 b$(kol)=g$:
1 at any position on the screen: ie, to find the CODE of the character printed
1 artist B^
1 aloga proishodittolxko na disk, {to neskolxkoneudobno.
1 ak~hI[E6#2
1 adr=buf+i*78
1 adr=buf+N(n)*60
1 addr=46112
1 add(a,b,c)
1 acka 255"'
1 ac-","momo
1 abwgdevzijklmnoprstufhc~{}xyx|`qABWGDEVZIJKLMNOP************************************************RSTUFHC^[]XYX/@QeE**************!0u
1 abook.hlpB
1 aGIO!+U_U?1;
1 a'fa-B+G/;/.8$ (P0>?T8/W>+3>29-E
1 a$=a$+" w nego nowye dan-nye, to wybraw opci@ 'Razbitxkatalog' Wy smovete razbitxime@}ijsq u Was katalog nadwe {asti otnositelxno wwe-dennogo Wami nomera. Zapisxrazbitogo kataloga proishodittolxko na disk, {to neskolxkoneudobno."
1 a$="track FROM "+
1 a$="autor Lebedev S.M.":
1 a$="adapted for SPARK Krotov V.V.":
1 a$="Wtoraq {astx programmy - katalog dannyh ob aw-torah. Ona pozwolit Wambez osobogo truda polu-{itx dostup k biografiil@bogo neobhodimogo Wam pisatelq."
1 a$="Programma sostoit izdwuh {astej: katalogaknig i kataloga dannyhob awtorah. Pogoworimo perwoj {asti:"
1 a$="Priwet! My rady, {to Wy udo-suvilisx pro{itatx ~tu in-strukci@, i woob}e, to, {to~ta programma popala k Wam wruki - prekrasno,potomu {to,kak nam kavetsq, imenno Wampora priwesti w porqdok swe-deniq o l@bimyh pisatelqh inapisannyh imi knigah!":
1 a$="Preduprevdaem, {to nadannoe wremq (05.01.93)programma ne imeet ana-logow na SPEKTRUMe,po~-tomu wesxma wozmovnynekotorye neudobstwapri rabote s nej. A te-perx pogoworim o pro-gramme bolee podrobno:"
1 a$="Posle zagruzji programmypered Wami poqwitsq ob-|irnoe men@. Dawajte razberem kavdyj ego punkt wotdelxnosti."
1 a$="ON BREAK":
1 a$="NEW TRACK YES OR NO Y/N":
1 a$="INPUT NAME OF FILE ZX":
1 a$="IBM DISC=A ZX DISC=A AND B":
1 a$="EMULATOR I.B.M. >>> Z.X.":
1 a$="9. W l@boj moment Wy moveteperejti k rabote s dannymi oknigah, no w ~tom slu{ae wseime@}iesq dannye terq@tsq."
1 a$="9. Po okon{anii rabotyproishodit awtomati{es-kij wyhod w 'TR DOS'(poWa|emu soglasi@) i za-pusk obsluviwa@}ej programmy."
1 a$="8. Pri wybore ~toj op-cii men@ proishoditudalenie zapisi s wwe-dennym Wami nomerom(tolxko posle polu{eniqWa|ego soglasiq)."
1 a$="8. Konec raboty (i po-terq wseh dannyh) pro-ishodit tolxko poslepolu{eniq Wa|ego sogla-siq. On budet soprowov-datxsq wyhodom w TR DOSi zapuskom obsluviwa@-}ej programmy."
1 a$="7. O{istka wseh dannyh(inicializaciq) prois-hodit tolxko posle po-lu{eniq Wa|ego soglasiq"
1 a$="7. Dlq izmeneniq dan-nyh o kakoj-libo kni-ge neobhodimo wwestiee porqdkowyj nomer wkataloge. Izmeneniezapisi proizwoditsqtolxko posle polu{e-niq Wa|ego soglasiq."
1 a$="6. Udalenie dannyh pro-ishodit po wwedennomuWami nomeru tolxko pos-le polu{eniq Wa|ego so-glasiq."
1 a$="6. O{istka dannyh pro-izwoditsq tolxko poslepolu{eniq Wa|ego sogla-siq."
1 a$="5. W l@boj moment ra-boty Wy movete pro{i-tatx ~tu instrukci@,no wse ime@}iesq dan-nye budut poterqny."
1 a$="5. Sortirowka katalogaosu}estwlqetsq tolxko poperwym bukwam nazwanijknig, {to neskolxko neu-dobno pri rabote."
1 a$="4. Wwedennye dannye zatemmovno prosmotretx wse, skakogo-libo nomera ili nanuvnu@ Wam bukwu. Krometogo movno prosmotretxspisok knig odnogo awto-ra. Wyhod iz revima pros-motra osu}estwlqetsq aw-tomati{eski po okon{aniizapisej ili posle navatiqklawi|i 'Q'"
1 a$="4. Dannye movno pro-smotretx libo wse,libo na nuvnogo Wam awtora, libo s kako-go-libo nomera dokonca."
1 a$="3. Wwod dannyh osu}est-wlqetsq w formate 'imqawtora - proizwedenie'. Okon{anie wwoda dannyh -wwod 'end'"
1 a$="3. Wwod dannyhosu}estwlqetsq wformate imq aw-tora/biografiq."
1 a$="12. Poisk knigi prois-hodit po wwedennomu Wa-mi obrazcu. Esli kniganajdena, to na ~kranwywoditsq ee nazwanie,awtor i porqdkowyj no-mer. Esli ve ona otsut-stwuet w kataloge, topoqwlqetsq soob}enie'Obrazec ne najden'."
1 a$="11. K sovaleni@ iz-za nebolx-|ogo ob'ema pamqti w SPEK-TRUMe katalog pozwolqet so-dervatx odnowremenno li|x 650zapisej. Odnako esli katalogzapolnen polnostx@,a Wy hoti-te wnesti"
1 a$="10. W l@boj moment ra-boty Wy movete prosmo-tretx spisok imen awto-row, dannye na kotoryh ime@tsq w kataloge."
1 a$="10. Pri wybore ~toj op-cii proishodit zagruzkawtoroj {asti programmy(to estx toj, w kotorojmovno rabotatx s danny-mi ob awtorah), no pri~tom dannye o knigah terq@tsq."
1 a$="1. Pri rabote s diskowodom Wymovete zapisatx uve sozdannyjkatalog knig na disk, ili za-gruzitx s diska staryj kata-log. Krome ~togo imeetsq woz-movnostx udalitx s diska ne-nuvnyj fajl, uplotnitx disk ili s{itatx ego katalog."
1 a$="1. Pri rabote s diskowodom Wymovete zapisatx uve sozdannyjkatalog na disk, ili za-gruzitx s diska staryj kata-log. Krome ~togo imeetsq woz-movnostx udalitx s diska ne-nuvnyj fajl, uplotnitx disk ili s{itatx ego katalog."
1 a$=" TLW+ OR LIST T/L":
1 a$=" INSERT Z.X DISK AND PRES ENTER":
1 a$=" INSERT IBM DISK AND PRES ENTER":
1 a$=" INPUT NUMBER TRACK 0--160":
1 a$=" INPUT NUMBER 1D AND 2D ZX ":
1 a$=" INPUT NUMBER 1D AND 2D IBM":
1 a$(max)=g$:
1 a# `#'p"Q'tT PR6WVveR
1 a"'" - nepe
1 a ~Tape-Tape Copy~",""," O
1 `g$$$>p2Cc
1 ````````````````hhhhhhhhhhhhhhhh````````````````hhhhhhhhhhhhhhhh````````````````hhhhhhhhhhhhhhhh````````````````hhhhhhhhhhhhhhhh`hhhhhhhhhhhhhh`hiiiiiiiiiiiiiih`hhhhhhhhhhhhhh`hyyyyyyyyyyyyyyh`0 0`hxxxxxxxxxxxxxxh`00000000000000`hhhhhhhhhhhhhhhh````````````````hhhhhhhhhhhhhhhh````````````````hhhhhhhhhhhhhhhhGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
1 ````````````````````````````````
1 `BU#2&VWdPUc5!
1 `0|7G#Nkd_]VD
1 `"N`nZ9G(g>Pv{=t/z')
1 _sstv3 C
1 _sstv2 C
1 _setover(on)
1 _mznL12NAPnc
1 _lement-NR. :
1 _lement NR.:
1 _book catB
1 _beep(DE,HL)
1 _autorcatBX
1 _______________
1 __________";
1 ^N.Rodionov ONLY WANT TO KNOW: ARE YOU AMUSED BY THAT?
1 ^3 ` D PR6WVveR
1 ^#V#N#F#~<#(
1 ]sxv@""7"w
1 ]NZI{zhrpixwa
1 ]EmulatorB
1 ]Book catB=
1 \layout C0u
1 \ibm2.2 C(
1 \ibm C
1 \SSTV B
1 \IBM V2.2B
1 \>Lw#>Aw#>Yw#>$w#> w#w#w#w#>Cw!
1 \>Fw#>Lw#>Aw#>Yw#> w#w#w#w#>Cw!P
1 \##N#F#"]\"
1 [}\r#s#N#F#
1 [}CeoqWIS%Ke_
1 [u}vD_V,K_Yeyu
1 [mwyoA[e+=GYC
1 [d2.2 C0
1 [a_}3KU_Y;mO!
1 [UqUrVVf"`mW
1 [Ue54&UPuE0mgG
1 [U`EUPVTuUP%F'mg@
1 [U`EUP5UP%F'mg@
1 [T-Copy B
1 [IBM>SpecB
1 [ENTER]-No/Yes
1 [DOCTOR 2B
1 [ 6j|8mjzH
1 Ztfi C1
1 ZX SPECTRUM MACHINE CODE TOOLKIT
1 ZTEST TV#B%
1 ZQpU%6SUp ''@"0"
1 ZLAYOUT dBb
1 ZEUS1990<B> 7N
1 ZEUS Z80 ASSEMBLER
1 Z-80LISTB1
1 Z*!`+d`hdli
1 Z(>7g*Orx(x(
1 Ytfp C
1 Y^5'0eIspOpiA
1 YURIC COMMANDER for BETA 128
1 YTFCopy PBY
1 YTFCopy NB
1 YSpektAnaBD
1 YRRA=52650
1 YES. M
1 Y;'hMbC!6+d
1 Y:.ROW=R:.SPN=7
1 Y-absc. wyw1 - korpusa :
1 Y(M)=P(I3)
1 Y(M)=P(I2)-P(I1)
1 Y(M)=P(I1)+P(I2)-P(I3)
1 Y(M)=P(I1)+P(I2)+P(I3)
1 Y(M)=P(I1)+P(I2)
1 Xuwp` G$PYW0`WUw`0UfeYPv
1 Xt-t cod C
1 XTurbo CoB
1 XR]C]SczFDJc3ZlSE_]a|DZHe
1 XLAT Bx
1 X-absc. wyw1 - korpusa :
1 X(M)=N(I3)*P(I3)+5
1 X(M)=N(I3)*P(I3)
1 X(M)=N(I1)*P(I1)+N(I2)*P(I2)
1 X - Find string
1 Written by N.Rodionov
1 Written By Nicolas Rodionov
1 WmTtGUpSCuR0g
1 What do you want????
1 Welcome to PROTECTOR *L*F*A* Copyright *L*F*A* Redaction by
1 We]sSuS230PE;u0eWU
1 WZXG 1.2.CToR
1 WTW@U5EWPUsU`f v
1 WTUYEBWU5YUTQw
1 WTTE@U@ PB
1 WT%PEDT6SS
1 WRITTEN BY NICOLAS RODIONOV
1 WPSPT=52419
1 WOLF & Co Presents^
1 WLMS:insr
1 WInvalid extension file
1 W4UFtT%UUSeG SCR7gWg
1 VueU%T#$$W
1 Vte[RGG[PpT[PVe"Tdr@
1 Viewing
1 Version 7.05^
1 Vasilevskij.
1 VUdG&[UP;U0SUwV& WD
1 VSCRL=52479
1 VLADIMIR IANOVSKY.
1 VDSU5%F&SR'
1 VD0EEeUVT0tW
1 UweFW{WuGDu]
1 Uu%TS WWr'
1 Using TR-DOS
1 Up#GcGSGc@
1 Undefined parameters
1 UkVF5UdVe4T`VUVefbV'M vgUvb"4@G
1 Uee`YUPe&UUSq$ApW#gcV7VVGgm%E$g#&Q pW
1 UeU%VEeEPUdTf&
1 UWUUUUUUUUUUUUW
1 UUUUUUUUUUUV
1 UUPdRVdUf%
1 UUDTeeU$R`& SCU
1 UU@DRVP`#S5@GcEp
1 UU4UUPpgQ5
1 UT7DUu4EUU%Tu0'GRWP`"'
1 UT&iw`55vs`SwUU`ER"YEPUFUU
1 UT%iw`55vs`vRUU`ER!YEPUFUU
1 URPUP$TTDu4e`
1 UPpvBTRrI0QUA
1 UPpTRcR0TT
1 UPRBRWrAp7VSV7V
1 UNSUCCESFULL FORMATTING
1 UEiW0G$PvsqVt BP
1 UEWuPURUeeV
1 UEWtUSUTPu%PR0
1 UEPUUuPUup#b`wV`%`fP%W@utcG@Uew@Tw`'0UtS
1 UDdUpDRV`fpmW
1 U.D.G. BG
1 U&SRW0`V%uT`%
1 U%Y `e6UuFQT
1 U"%eB %QPF3'#2tcup
1 U!%rBUUcUU
1 Type y to run:
1 Type Name Lengt
1 Typ sec.
1 Translation:
1 Tracks formatted:
1 Total sectors damaged:
1 Tm g} Vm SVV`
1 This is Line #";Z
1 Te%@Dwusc&fu
1 TdEURPU%2@SC%5vrpw%
1 Ta`gFup##&fc@DU
1 T]++++DM"n
1 TTSPT=52485
1 TSPST=AL+(AH*256
1 TSPND=AL+(AH*256
1 TRK=TRK-((
1 TRACK FAULT!
1 TPEDX^P:ro=jwE
1 TO SEE HOW THIS WAS DONE, EXIT & EXAMINE LINES 9278 TO 9286
1 TMPY=52327
1 TMPX=52326
1 TLDR+len_Bt+15
1 TFUbuV%@U@ VB"RVQ3UTF
1 TECHNOLOGY RESEARCH LTD.
1 TAPP=52595
1 TAPE TO DISK COPIER VER 5.0
1 TAPE LOAD ERROR
1 T(X(M)+J*Y(M))=T(X(M)+J*Y(M))+TO
1 T o B o S - F P
1 T - Enter Track/Sector
1 System sector damaged
1 Starting address:
1 Start of source =
1 Start address:
1 SpritGenBPQPQR
1 Sp5%cr`U3#c
1 Sourch DRIVE
1 Single sided ~
1 Select speed
1 Select drive
1 Searching on track
1 Searching for last track
1 Save changes (Y/N)?
1 SY+YS,SX+XS;
1 SY+YS+SHT>15
1 SY+YS+A,SX+XS;
1 SX+XS+SLN>30
1 SUPERSOFT SYSTEMS
1 SUPERPAKBQ
1 SUDwRBFb%wgV
1 START TAPE
1 START LINE:
1 SSE=TSPST:
1 SSE=SSE+MEM
1 SPST=49899
1 SPRITE1BDN
1 SPR1 C;
1 SPR. 1ADN
1 SPR. 1AC:
1 SPR$1 .$C@
1 SPR$1 C0u
1 SPNO=23305
1 SPND=49901
1 SPMIR=52565
1 SPMAR=52571
1 SPINV=52559
1 SGWTUUuT%U
1 SEW5dfpgQ5
1 SEU5u'PgQ5
1 SD PWB5RU 6U
1 SCMIR=52547
1 SCMAR=52553
1 SC/cCSO+wOG
1 SAVE'";C$(
1 SA=SA-(SB*8
1 S$="WELCOME TO INVADER CUBE ":
1 S$="THE COMPUTER CAN . ":
1 S$="ROW OF INVADERS ON THE BOARD BEFORE":
1 S$="MOVES ARE ENTERED IN THE SEQUENCE ;":
1 S$="LEVEL : ROW : COLUMN ":
1 S$="IN THIS GAME YOU TRY AND LINE UP A ":
1 S$="IN A REAL PROGRAM APPLICATION. ":
1 S$="DO YOU WISH TO GO FIRST ? ":
1 S$="A DEMONSTRATION OF LASER BASIC ":
1 S$="*********************** ":
1 S U P E R C O D E
1 S - Save changes
1 Rvvu`uvSfS
1 RqvTT PRbQ
1 Routine Starts at ";A
1 Routine Length is ";B;" bytes
1 Routine Ends at ";A+B-1
1 Rodionov Nicolasr
1 Restore disk
1 Repare this file.Push 1st letter
1 Reading specifications
1 ReWrite(Y/N)?^
1 ReRead (Y/N)?^
1 RWR2tu"A25
1 RV2dURV%eURVbebC
1 RTSPT=52523
1 RSTUFHC^[]_YX\@QeE
1 RSQQ_]%[[TY
1 RSCRL=52473
1 ROUTINE NO:
1 ROUTINE ";C$'" IS NOW CALLED
1 RG7V53Drb@vUtW5dQBp2TuS
1 REWIND TAPE
1 RESTRICTION: use assignment or move() to initialise automatics
1 RESTRICTION: macros may not have parameters
1 RESTRICTION: cannot nest includes
1 RESTRICTION: can't manage initializers yet
1 RESTRICTION: Floating Point not implemented
1 RESTRICTION : floats not implemented
1 RESTORING COMPLETED
1 RELCT=52437
1 RATCOPY Program System
1 RANDOMIZE USR63950
1 RANDOMIZE USR 3190
1 RANDOMIZE USR ";A
1 RADD=RL+RH:
1 R$" ""$VRp
1 R"E\*S\###"
1 R - Reload track
1 Quit
1 QtU%sU &SR'
1 QeEUQ%Qe"&ApWVV
1 QU`&p2GUwv
1 QUIT (Y/N)?^
1 QSgpVVgV2`SG
1 Q2UEQRQSWRpR`SU
1 Q(.=2GV:IV=G:\V
1 Put sector. Are you sure (Y/N)?
1 PuApW&Q Pt`&ps
1 Ptfcopy-2C
1 Programming by
1 Professional Player's Tool R1.11
1 Print file name
1 Print Directory
1 Press a key
1 Press Enter to confirm
1 Press ENTER to Expand the Whole Program
1 Please wait
1 PiwgUpSveW@V5P`YEUPT%
1 Pfile2 C
1 Parameter must be only 1 or 2
1 PWEB6f gU7
1 PUTDBUTUTT@%T
1 PTSPT=52431
1 PT-T CopyBu
1 PROTECTION BY *L*F*A*
1 PROTECTED DISK *:
1 PROTECT *}a
1 PRINT;: RANDOMISE USR 60222
1 PRESS [BREAK] TO STOP
1 PRESS ENTER TO CONTINUE!
1 PRESS ANY KEY !
1 PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP
1 POKE NUMBERS
1 PLAYER'S TOOL (v.2)
1 PE$vg%WRWP`"'
1 P&E@f"sW$2p
1 P - Put sector
1 P PC&RWugft
1 Output disk full !
1 Out of symbol space !
1 Out of memory !
1 Out of Place.Cont(Y/N)
1 Otcopy Cb
1 Ordinary disk ~
1 Ordinary disk
1 One Del file
1 OUT OF TABL
1 OUT OF MEMOR
1 OTOP COPYCb
1 OTOP COPYB
1 OTFCOPY-2B
1 ORXOR=52538
1 ORON=52586
1 OF DISCCOPY Was written with the assistance of SHURIC in 1990 September Sincerely Your YURIC.
1 OBRABOTKA KOMAND
1 O(I)=XX+I*YY
1 O - Open file
1 Number of proofs
1 Not a TR-DOS disk!
1 No. STATEMENTS :
1 No. OF EXTRA BYTES::}\_:~\W:
1 No. LINES :
1 No. Bytes:
1 No more than 20 !>
1 No copies available
1 No (more) strings
1 No Program(s) !
1 NZX-graf B2
1 NWWTPR'L[C]I
1 NSPST=SSE-8705
1 NS-S CopyB
1 NR. NAME korpus
1 NR's fast 5.03
1 NOT FOUND !
1 NOT ENOUGH MEMORY
1 NO SCREEN$ FIL
1 NEW Y/N ":
1 N:.SETV:.PTBL:
1 N:.ATON:.PTBL
1 N$=N$+" ":
1 N - Find next string
1 Mu00 08 16 24 32 40 48 56 64 72 80Bad Sectors on Side
1 Mu on Volume
1 Mu Selected=
1 Mu Sector=
1 Mu Exist=
1 Mu Deleted=
1 Move this Disk.Are you sure(y/n)
1 Mode Selected
1 Maximum tracks [
1 M[Qg}3KUo!cuO!
1 MXo]]T]Yb{yuwn1uy7xvommks
1 MT.COPIERB
1 MOVE=51505
1 MORE THAN 20 SCREEN$ FIL
1 MONITOR B*]\"
1 MONID 48Bx
1 MODE-44032
1 MLT=SSE-SSS
1 MLT=MLT-BFR:
1 MK=MK*M(X(M)+J*Y(M))
1 MIRROR ATTR":
1 MIRROR ATTR "
1 MIPh&T Hacker's Club
1 MIPh&T HACKERS CLUB
1 MFC v1.4BK
1 MEM=MEM-SSE
1 MEM=MB-MA:
1 MEM=AL+AH:
1 MEM2=(65536
1 MA.B.copyB}
1 M?}WI#2j(RSl
1 M9d}.0`6o|.vWH
1 M&C PRESENTS! 1991
1 M$="YES.":
1 M$="WHOOPS !!!!":
1 M$="WATCH THIS.":
1 M$="TRY THIS ..":
1 M$="TRY AGAIN .":
1 M$="TO GO FIRST":
1 M$="TAKE THAT .":
1 M$="STAND BY ..":
1 M$="ROW ="+
1 M$="O.K. (Y/N) ":
1 M$="MY MOVE ...":
1 M$="LEVEL ="+
1 M$="ENTER ROW ":
1 M$="ENTER LEVEL":
1 M$="ENTER ... ":
1 M$="DO YOU WISH TO GO FIRST ?":
1 M$="COLUMN="+
1 M$="COLUMN ":
1 M$="A NEW GAME?":
1 M$="*YOUR MOVE!":
1 M$="*THINKING..":
1 M$="*HARD LUCK*":
1 M$="** I WIN **":
1 M$="* YOU HELD ":
1 M$="* RATS ... ":
1 M$=" YOU WON!! ":
1 M$=" A DRAW .. ":
1 Ltf-copy C
1 Loader PV'1991
1 Load marked files.Agree (y/n)?
1 Leningrad,11.1990
1 Length of Program Only:!
1 Length =
1 LSCRL=52467
1 LREG=23302
1 LOAD "SPRITE2B"
1 LOAD "SPRITE2A"
1 LMFv.09 B
1 LMFCODE C
1 LLLLLLLLLLLLLLLLLL%w
1 LLLLLLLLLLLLLLLLLL%v
1 LINK=52684
1 LINE NO:NOW RENUMBER PROGRAM
1 LIMIT: no more memory
1 LIMIT : too much global data
1 LIMIT : too many types
1 LIMIT : too many case statements
1 LIMIT : name table full
1 LIMIT : local symbol table full
1 LIMIT : global symbol table full
1 LIMIT : expression too complicated - too many operators
1 LIMIT : expression too complicated - too many arguments
1 LENINGRAD 1990
1 LDULLARD B
1 LBEYOND B
1 L);"'CODE ";A;",";B
1 KYOXUWOK^'591.
1 KTRCOP-92B[
1 KTF-Copy B
1 KBdx=TD-'Rr]
1 Jd.d.v3 C
1 JD.D.V3 B(
1 JCopy128+B
1 JC128DD C_
1 Insert command
1 Insert SOURCE Diskette
1 Input New Name, then press Enter
1 Input Mask,please.(?-Any Symbol)
1 Input FILTER name
1 Information
1 Include is not implemented
1 INVSN=52443
1 INSERT DISK OR CANCEL
1 INSERT Spectrum DiskINSERT IBM Disk
1 INDEX - PAGE ";(Z-1
1 IMF09 B^
1 I.I
1 Hp0PA#[V07fUV
1 HiSoft CBA
1 Hard disk not present
1 HV-Copy 3B
1 HRus 2 CX
1 HREG=23301
1 HREDS C
1 HISOFT-C Compiler V1.1B
1 HIRES SCROLL-UP
1 HIGHEST PERFORMANCE
1 HELP PAGE
1 HEADER _base, *_allocp;
1 H30PD @VRRU WRf
1 H(I),G(I):
1 H - This page
1 GrfU0WUE GURSRUPUFREUQP
1 GarpmeV7W0UA"
1 GarpmeV7Vw0UA$
1 GameLas.Bc
1 GTSXR=52455
1 GTSPT=52425
1 GTSOR=52449
1 GTSND=52461
1 GSvUUtEP[UR`Vu%&&
1 GSFVf`VSSU0
1 GRESTORE#B
1 GREAT FANKS TO UV3DUK
1 GO0T:B}$C_
1 GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
1 GGGGGGGGGGGGGGGGGG
1 GGGGGGGGGGGGGGGGG888888888888888GGGGGGGGGGGGGGGGG888888888888888GGGGGGGGGGGGGGGGG
1 GGGGGGGGGGGGGG
1 GGGGGGGGGGGGEEEEEEEEEEEE"w
1 GGGGGGGGGGDDDDDDDDDD ^
1 GGGGGGGGG"}
1 GGGGGGGGG"
1 GGGGGGGGG!
1 GGGGGGGEEEEEEEGGGGGGGEEEEEEE
1 GEGGGGGGGGGGG
1 GEEEGGGGGGGGGG
1 GEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEGGEEGGGEEEEEEEEEEEGEEEEEEEEEEEEEGGEEEGEEEEEEEEEEEEEEEEEEEEEEEEEEGGEEEEEEEEEEGEEEEEEEEEEEEEEEEEEEEGEEEEEEEEEEGEEEEEEEEEEEEEEEEEEEEGEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEGGEEEEEEEEEEEEGEEEEEEEEEEEEEEEEEEGEEEEEEEEEEEEEEEEEEGEEEEEEEEEEEEGEEEEEEEEEEEEGEEEEEGEEEEEEEEEEEGGEEEEEEEEEEEEGEEEEEEEEEEEEEEEEEEGEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEGGGGGGGGGGGGGGGGGGGGGGGGGGEEEEEGGGGGGGGGGGGGGGGGGGGGGGGGG
1 G'I+?+#';EYY[
1 From track:
1 Free sectors:
1 Formatting
1 Formatted with DCU
1 Formating this disk.Sure (y/n) ?
1 Fmons4b C0u
1 First Byte:
1 Filename:
1 Filename Start Len Blk Sec Trk
1 File not start
1 File not found
1 Fast disk [
1 F^YXYX%&0'"P3"(-&L/';H7!60 25Bg
1 FUCK YOU!!! FUCK YOUR MOTHER!!! FUCK YOUR FRIENDS!!! WRITE YOUR OWN PROGRAMS, MOTHERFUCKER, OR BUY AN ORIGINALS... OR FUCK YOURSELF AND SAVE YOUR MONEY! I'LL FIND YOU... I'LL SEE YOU... I'LL FIRE YOU... I DAMN YOU! EAT ME!!!!! EAT ME!!!!! EAT ME!!!!! I HAVE NOTHING MORE FOR YOU......
1 FROM LINE NO:TO LINE NO:AFTER LINE NO:NOW RENUMBER PROGRAM
1 FRED D B?
1 FORMATTING COMPLETED
1 FIND STRING
1 FILE NAME LENGTH START TRK/SEC
1 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
1 FFFFFFFFFFFFFFFFFFFF2e
1 FFFFFFFFFFFFFFFFFFFF2d
1 FFFFFFFFF0V
1 FFFFFFFFF0U
1 FEUtU@SdVPVEeV4?bsR0QCtpW
1 F1PUp#'4WD
1 F(nu)=F(nu)+66
1 F - Page forward
1 Exit to DO
1 Error detected.Remove (y/n) ?
1 Error catalog!
1 Erase this file.Agree? (y/n)
1 Entry hex'es and/or string
1 Enter new name of disk
1 Enter new name
1 Enter new address:~~~
1 Enter mask:~~~~~~~~~
1 Enter disk name:
1 EXIT to BASIC? (Y/N)
1 EU'eUW0DRVV&pe[
1 ERROR CODE: ";N$:
1 ERROR - 27 - undefined symbol
1 EREG=23307
1 ENTRY TRACK No.:
1 ENTRY SECTOR No.:
1 ENTER drive (A,B,C,D)?
1 ENTER NOT FOUND!
1 ENTER LEVELC
1 ENTER LEVELA
1 ENTER LEVEL
1 ENLARGE REM
1 ELIST BASBI
1 EEUFV %RebqFT
1 EEEEEEEEEEEEEEEEEEEEEEEEEEEEDDDDDDDDDDDDDDDDDDDDDDDDDDDD
1 EEEEEEEEEEEEEEEEEEEEEE#+
1 EEEEEEEEEEEEEEEE(#
1 EEEEEEEEEEEEEEEE("
1 EEEEEEEEEEEEEEEE(
1 E!COH%DFFMY+
1 Double sided [
1 Do you really want to quit?
1 Disk title: SOFTSTAR
1 Disk title:
1 Disk not formatted
1 Disk Header in order
1 Directoty full
1 Directory damaged
1 Destination of an assignment must be an lvalue
1 Destin. DRIVE
1 Denny Novikov
1 DRV,SID,QU,Res,FORM
1 DREG=23306
1 DO YOU WISH TO GO FIRST ?
1 DLDR+len_B+15
1 DISK DOCTOR V2.2
1 DISK CONTROL UTILITY V2.12
1 DISK *: CLOSED!
1 DISK (DRIVE) NOT PRESENT
1 DFSPT=52413
1 DDDDDDDDDDDDDDD+E
1 DDDDDDDDDDDDDDD+D
1 DDDDDDDDD4"
1 DATA TYPE:
1 DATA ARRAY
1 D PWSP1#[Rw1ve"@UT`CUuE
1 Current drive:
1 Copy marked files (y/n)?
1 Compressio
1 Clear address:
1 Checking completed, press fire
1 Check media [
1 Check disk
1 Change disk
1 Change Disk name (y/n) ?
1 Change Adress ,then press Enter
1 Cdistr.2 CP
1 Cdistr CP
1 Catalog
1 Cannot initialise this (disallowed type)
1 Cannot initialise this (disallowed storage class)
1 Cami 3 C@
1 Cami 2 C%{
1 C^ijU=[h4W
1 CSJVZLKYOUP
1 CREG=23304
1 CREG,LSPN:
1 CP=MS+((YS+SY+1
1 CP=MS+((SY+YS+1
1 COPY 128 V3.0
1 COLDS=52354
1 CODE LENGTH:
1 CHERNIKOV'90
1 CHECKING DISK
1 CDISTRIB2B=
1 CA=IN+(PA*8
1 C=\"B\z2D\
1 C1.4 B
1 C/D/E/I/N/P/Q/R/S/X
1 Bami 1 C
1 Bad sectors
1 BY NICOLAS RODIONOV
1 BREG=23303
1 BREG,SSPN:
1 BLOCK COPY
1 BLKON=52529
1 BEPHO (Y/N) ?":
1 BDISTRIB1BA
1 BDISP+$-#4000
1 BASIC LENGTH:
1 B$=" ":
1 B - Page backward
1 Available
1 Auto-start Line No:
1 Array Name:
1 AXLAT Bx
1 ATTON=51434
1 ATTOF=51442
1 ARTIST Bz
1 ARRY=52601
1 ARM START "
1 ANY OTHER KEY TO START
1 ANY OTHER KEY TO RESTART
1 ANY OTHER KEY TO GO ON
1 ANY OTHER KEY
1 ANDON=52577
1 AL=SSS-(AH*256
1 AL=SSE-(AH*256
1 AL=MEM2-(AH*256
1 AL=MEM-(AH*256
1 AL=BFS-(AH*256
1 ADVANCED DISK SERVICE ver 2.0
1 ADVANCED MONITOR^
1 AAMI B~
1 A$="WARM START":
1 A$="SPRITES INCOMPATABLE":
1 A$="SPRITE MEMORY FUNCTIONS":
1 A$="SCREEN FUNTIONS":
1 A$="SAVE SPRITES":
1 A$="SAVE SPRITES TO TAPE":
1 A$="SAVE SPRITES TO M/DRIVE":
1 A$="PUT A SPRITE INTO A SPRITE":
1 A$="LOGICAL SPRITE FUNCTIONS":
1 A$="LOAD SPRITES VIA M/DRIVE":
1 A$="LOAD SPRITES FROM DISK":
1 A$="LENGTH (1-15)":
1 A$="INPUT DATA DIRECT":
1 A$="Hey! Disk version 'Sprite Gene-rator by Andrey Pustovalov Krasnogorsk 15.12.92 Now press any key to begin":
1 A$="FORMAT SPRITE CART' ":
1 A$="DUMP SCREEN TO CHR$ SQR":
1 A$="DUMP CHR$ SQR TO SCREEN":
1 A$="CREAT LARGE SPRITE":
1 A$="COLD START":
1 A$="CLEAR SCREEN":
1 A$="CLEAR CHR$ SQR":
1 A$=" WINDOW OFF SCREEN":
1 A$=" SPRITE OFF SCREEN":
1 A$=" SPRITE NOT DEFINED":
1 A$=" NO COLD START ..?":
1 A$=" HEIGHT (1-15)":
1 A$=" DEMO-DEMO-DEMO-DEMO-DEMO-DEMO "
1 A$=" CHARACER OFF SCREEN":
1 @S$ V1.03B
1 @);/*Subrotunes
1 @$6g%ssS`"#
1 @ PC 2a fUvt
1 ?u%GgUP3tv
1 ?master C
1 ?TAPER BD
1 ?QkeoyKU/!;
1 ?PROTECT+B
1 ?K#KC_s3G+7G
1 ?1;EOYcmG1k
1 ?
1 >not found":
1 =`bteM[eoy
1 =MASTER-KB[
1 ='QKU'ac]Gi
1 <51?9?wtu]X
1 < --- Turbo Load ------ Help Page ------ Edit File ------ View File ------ ZAP DISK ------ Turbo Zeus ---- Exit to BASIC --- Exit to TRDOS --- Set Using File -- Set Disk Label -- Save Zeus Text -- Mask Addition -- Disk Checking -Break into Program Call Subroutine -- File Rename ---Restore Catalog --- Save Catalog ---- View Catalog ---- Mask Delete ---- Format Disk ----- Turbo Copy ---- File Functions --- Quick UnErase ---- Load File ------ Move File ---
1 ;snum;" ";:
1 ;r$;" <";t$;"> ";
1 ;p @ PF% rbU%vg@v
1 ;kl;". ";i$:
1 ;kl;". ";i$(
1 ;f$;" Line-";l;" Length-";ll;
1 ;C$;" CODE ";A;",";B:
1 ;A$;" (Y/N)":
1 ;;" Dannyj paket pomovet Wam";
1 ;/*Writeprt?
1 ;/*Rev Side
1 ;/*Restore
1 ;/*Drv parms?
1 ;/*Drive exist?
1 ;/*DiskSel
1 ;/*Disk insrtd?
1 ;/*Disk fmtd?
1 ;/*Check trk
1 ;/* ver 1.4
1 ;/* to compile
1 ;/* software- ZEUS-
1 ;/* requirements:
1 ;/* phon. (095)4086167
1 ;/* or latest ZEUS
1 ;/* label (#700 bytes)
1 ;/* hardware- ZX Spectrum
1 ;/* for CM 6329.01 */
1 ;/* date: 11.09.1992.
1 ;/* beta version 1.00
1 ;/* assembler version.
1 ;/* Write to tape */
1 ;/* Vladimir
1 ;/* VLADIMIR
1 ;/* VASILEVSKIJ
1 ;/* Subrotunes */
1 ;/* Serial Driver */
1 ;/* SOURSE FILE
1 ;/* SOS vars */
1 ;/* Program Vars */
1 ;/* Print Screen */
1 ;/* Open new file */
1 ;/* Messages */
1 ;/* MIPh&T HACKER CLUB
1 ;/* MAGIC FILE COMPRESSOR
1 ;/* Exit the Program */
1 ;/* Create Tape File */
1 ;/* Create Disk File */
1 ;/* Compressor routune
1 ;/* ADS DEMO
1 ;/* -on load fnt to ZN_A
1 ;/* (2400 Baud) */
1 ;"wladimir qnowskij t.260-55-25"
1 ;"vyuzit vystup na zvoleny port.";
1 ;"vela` uda~i !"
1 ;"uprawleniq kursorom."
1 ;"top left hand corner of the box"
1 ;"tannye ranee knigi, a";
1 ;"takve dannye ob ih awto-";
1 ;"sistematizirowatx pro{i-";
1 ;"sankt-peterburg 1.06.1990"
1 ;"resident: Load";
1 ;"params: number (1-2 digits)";
1 ;"params: number (1-2 cislice)";
1 ;"optional: Clock (for Load)";
1 ;"mand ispolxzujte klawi|i";
1 ;"lagaet Wa|emu wnimani`";
1 ;"gramm 'Knivnyj katalog'."
1 ;"dannyh ob awtorah";
1 ;"cursor: D/U-slow L/R-fast"
1 ;"cursor: D/N-pomalu L/P-rychle"
1 ;"a vystupni hodnotu prikazy:";
1 ;"__________
1 ;"[tenie instrukcii";
1 ;"Zero length":
1 ;"You can scroll attributes too by using this routine & then No: 37 - 40, after defining an appropriate box & setting the Attr Value to 63."
1 ;"Y POS 1";
1 ;"X POS 1";
1 ;"Wyberite melodi@:";
1 ;"Wwedite nomer udal. knigi ":
1 ;"Wwedite nomer izmen. knigi ":
1 ;"Wwedite na{alxnyj nomer":
1 ;"Wwedite konec 1-go bloka ":
1 ;"WRITE TR ";T;" - ";T+7
1 ;"WRITE TR ";T;" "
1 ;"WRAP-AROUND POKE ";A+16
1 ;"WRAP-AROUND POKE ";
1 ;"WRAP AROUND POKE ";A+13
1 ;"WIPE SPRITE ";SNO;" (Y/N)":
1 ;"Version 1.3";
1 ;"Verify";
1 ;"VERIFYING SPRITE FILE ";A$
1 ;"Uweren (Da/Net)?":
1 ;"Ukazatelx ";ser;" "
1 ;"Udalqem zapisx (D/N)":
1 ;"UP TO 255 SOFTWARE SPRITES"
1 ;"Turn your PRINTER";
1 ;"To say the 2 byte equivalent of X is L(Less)/M(More) sig: bytes means that 256 * M + L = X . This routine permits instant conversion of a number from 0 - 65535 to its 2-byte equivalent. To convert X into its 2-byte equivalent, enter RANDOMISE X.
1 ;"To save this routine, use";
1 ;"To renumber lines starting with S using an interval I, first POKE 59580,I: POKE 59582,S-256* INT(S/256):POKE59583,INT(S/256) All GOTOs,GOSUBs,LISTs,LLISTs, RESTOREs,SAVE...LINEs & #Ns are renumbered(except for decimal/ calculated arguments & REMs).If the arg
1 ;"To help with PRINTing/PLOTting, this routine prints a BRIGHT ON /OFF checkerboard on the screen"
1 ;"To delete all lines from a to b POKE 23728, a - 256*INT(a/256) POKE 23729, INT(a/256) RANDOMISE b":
1 ;"To call this routine, use";
1 ;"Tittle: ";
1 ;"This routine will switch all flashing squares to steady & vice versa. This is hence very different from routines 32/33."
1 ;"This routine will switch all bright squares to normal & vice versa. This is hence very different from routines 34/35."
1 ;"This routine waits till a key (whose CODE will be put in L)is pressed.":
1 ;"This routine undoes the effect of #98, to allow lines of a CONFUSEd program to be EDITed/ altered.":
1 ;"This routine swops all chara- cters of a given CODE with all characters of a 2nd given CODE. POKE 63903, Old CODE POKE 63905, New CODE"
1 ;"This routine simulates a power- off: ie, it not only does NEW but also CLEARs RAMTOP to its original value, clears the entire memory & resets UDGs & System VARs.":
1 ;"This routine shortens & speeds up your program by deleting all REM statements in it. Also see #41,#82,#90 & #100.":
1 ;"This routine replays what #77 recorded. It is probably best to use your cassette-recorder (MIC socket) to amplify the sound.":
1 ;"This routine replaces numbers in the program by VAL String, which saves space but reduces speed. 0 is replaced by NOT PI. Also see #41,#64,#82,#90":
1 ;"This routine prints the address of the first character in the line the cursor points to.":
1 ;"This routine prints out both the no: of lines & statements in the program. If you try this out, use GOTO 9001 to restart."
1 ;"This routine prints out a full analysis of memory contents, starting at the address whose less & more significant bytes (see #61) have been POKEd into 62866 & 62867 respectively. The 4 columns are address, contents in decimal & hex & CHR$ (where printable).":
1 ;"This routine places a random # pair in the System Variable SEED ( PEEK 23670 & 23671 )." ;
1 ;"This routine lists all (1) Numeric variables (2) String variables (3) Numeric Arrays (4) String Arrays (5) FOR..NEXT control variables"
1 ;"This routine inserts a given number into a block of memory. POKE 63796, No: of bytes POKE 63798 (less sig) & 63799 (more sig), Start Address POKE 63801, No: to be inserted"
1 ;"This routine expands programs so that there is exactly one statement per line (except in IF..THEN lines).In reply to the prompt, enter the no: of the line you want expanded, or just ENTER if you want the entire program expanded. You must use #60 after calling this routine.":
1 ;"This routine enables you to determine the
1 ;"This routine deletes hidden colour items, thus saving space Also see #64,#82 & #100":
1 ;"This routine decodes tapeheader information & prints out a full analysis (name, address, type, length & auto-start details.":
1 ;"This routine converts hex no:s to their decimal equivalents. It clears the screen & prompts 'H:' - now ENTER the hex no:. Only the last 4 hex digits will be converted. The routine auto- repeats. Enter 'Q' to quit to BASIC. When called from #92(Hex Loader) only the last 2 digits are considered.":
1 ;"This routine converts decimal no:s from 0 to 65535 to hex. It clears the screen & prompts 'D:' - now ENTER the dec no:. Error message 6 results if the no: was out of range. The rou- tine autorepeats. Enter 'Q' to quit to BASIC.":
1 ;"This routine contracts programs into the minimum no: of lines, by combining lines wherever it is logically possible. Speed is also increased. See also #41, #64, #90 & #100":
1 ;"This routine allows hex input into RAM.POKE the less/more sig (see #61) bytes of the first address to be changed into the system-var DEFADD (23563/4). POKE 65360/61 with the start address of routine #63(Hex-Dec) which must also be in memory.":
1 ;"This routine allows a block of lines to be relocated within a BASIC program.In order to shift lines 4200 till 6745 so they appear after2200 in the listing respond 4200,6745 & 2200 to the auto-prompts.The new lines will all have number 0.Now call #60 to renumber & #57 to delete the old lines. Fully errorproofed.":
1 ;"The free space F from the last Variable to RAMTOP is printed. By the way, you can use POKE 23637,203:POKE 23638,92:SAVE 'Name'CODE 23552,RAMTOP-23550-F to save your program disguised as code - it will autostart at the first line.";
1 ;"The Toolkit contains
1 ;"THIS IS AN EXAMPLE OF THE NEW CHARACTER SET.POKE 23606/7 WITH THE LESS/MORE SIGNIFICANT BYTES OF THE START ADDRESS LESS 256 - CURRENTLY 0 & 223. TO RETURN TO THE NORMAL SET,POKE 23607,60.":
1 ;"THE TORTOISE AND THE HARE"
1 ;"THE RAT RACE"
1 ;"THE LASER BASIC";
1 ;"Saving ";x$;".
1 ;"STEP 2 Insert microdrive cartridge into drive 1."
1 ;"STEP 1 Rewind tape."
1 ;"SPST.. ";TSPST;" ";
1 ;"SPRITES":
1 ;"SPRITE2B"
1 ;"SPRITE2A"
1 ;"SPRITE START ADDRESS=";NSPST
1 ;"SPRITE NUMBER-1 "
1 ;"SPRITE LENGTH-1 ";
1 ;"SPRITE HEIGHT-1 ";
1 ;"SPRITE ANIMATION"
1 ;"SPRITE 00000 ";
1 ;"SPND.. ";TSPND;" "
1 ;"SMOOTH";
1 ;"SCROLLING"
1 ;"SCROLL-OFF POKE ";A+16
1 ;"SCROLL-OFF POKE ";
1 ;"SCROLL-OFF POKE ";A+13
1 ;"SAVING SPRITE FILE ";A$
1 ;"SAVING .. ";A$:
1 ;"SAVE LASER BASIC TO "
1 ;"SAVE File ";
1 ;"Routines 94 to 97 change the case (upper/lower)of strings or of the entire listing ( except strings),as specified.Note that an effective way of switching case from within programs is to POKE 23658,0 (LO) or 8(HI).":
1 ;"Routine in ROM":
1 ;"Rabota s dannymi ob awtorah";
1 ;"ROTATION"
1 ;"ROTATE SPRITE ";SNO;" (Y/N)":
1 ;"RETURN TO TAPE MENU"
1 ;"READ TR ";T;" SEC ";S;" "
1 ;"READ TR ";T;" - ";T+7
1 ;"Pro zastaveni magnetofonu lze";
1 ;"Press key":
1 ;"Press any key..."
1 ;"Press any key to see next page":
1 ;"Please change a FORMAT :";
1 ;"Pere{enx awtorow"'''
1 ;"PUT SPRITE ";SNO;" (Y/N) ":
1 ;"PRINT AT co-ordinates of the";
1 ;"POKE 64884, Overall Paper Col"
1 ;"POKE 64859, Overall Ink Colour"
1 ;"POKE 64829, Character Code POKE 64831, Box height POKE 64834, Box Width POKE 64832 & POKE 64835 with the PRINT AT co-ordinates for the top-left hand corner of the box."
1 ;"POKE 64682, Duration POKE 64693, Frequency 1 POKE 64702, Frequency 2"
1 ;"POKE 64648, Frequency POKE 64649, Span POKE 64651, Duration POKE 64670, 28(UP) or 29(DOWN)"
1 ;"POKE 63199,hodnota"
1 ;"POKE 63198,port";
1 ;"POKE 63011, Pitch Decrement POKE 63012, Number of notes POKE 63014 & 63015, Pitch (less/more sig) POKE 63017 & 63018, Duration in ms (less/more sig)"
1 ;"POKE 63001 & 63002 with the Pitch value (less/more sig) POKE 63004 & 63005 with the Duration in ms (less/more sig)"
1 ;"POKE 60006, Duration (1-127) POKE 60020, Colours (0-7) POKE 60029, Line Space (1-255)
1 ;"POKE ";A+7
1 ;"POKE ";A+6
1 ;"POKE ";A+4
1 ;"POKE ";A+1
1 ;"PLEASE WAIT"
1 ;"PAPER.7";
1 ;"PAPER.";IC:
1 ;"PAPER.":
1 ;"O{istka. Uweren (Da/Net)?"
1 ;"O{istitx katalog (D/N)? "
1 ;"Obrazec ne najden...":
1 ;"Obrazec ne najden":
1 ;"Num Name Type Trek Sec. Lenght"
1 ;"Nomer sli|kom welik!":
1 ;"Nomer najdenoj knigi : ";j:
1 ;"No GOSUBs or GOTOs are changed- use #60 if you need that done. If L is the first Line to be renumbered, & I the Interval POKE 64711, I - 256*INT(I/256) POKE 64712, INT(I/256) POKE 64714, L - 256*INT(L/256) POKE 64715, INT(L/256)":
1 ;"New restored name: ";N$
1 ;"New restored name: ";
1 ;"Net mesta dlq nowyh zapisej!":
1 ;"NUMBER TOO BIG":
1 ;"NUMBER TO START (0-RESTART):";an
1 ;"NEW SPRITE NUMBER (1-255)":
1 ;"Move the cursor to the required line & then call this routine. You will be in EDIT mode, but with the cursor at the END of the line.":
1 ;"Master of Power "
1 ;"Make the following POKEs:- INK (63732) PAPER (63738) FLASH (63744) BRIGHT(63750) INVERSE(63756) OVER (63762) AT (63768,63771)CHR$ (63774)"
1 ;"MIRODRIVE LASER BASIC."
1 ;"MICRODRIVE CARTRIDGE"
1 ;"MICRO DRIVE MENU"
1 ;"MEMORY LEFT " ;
1 ;"Less Sig More Sig":
1 ;"LOADING SPRITE FILE ";A$
1 ;"LOADING .. ";A$:
1 ;"LIST BASIC UTILITE";:
1 ;"LASOBJ"
1 ;"LASLOBJ"
1 ;"LASLOBJ"
1 ;"LASER BASIC"
1 ;"Kniga :"'" ";b$(n,
1 ;"Kempston (Y/N)?"
1 ;"KEVIN HAMBLETON":
1 ;"Izmenqem zapisx (D/N)":
1 ;"Iskomyj obrazec :";
1 ;"Insert disk & press key":
1 ;"In order to scroll a table of data > 22 lines long without stopping, use the command POKE 23692,x where x is the no: of lines to be scrolled. To scroll 'forever' use POKE 23692,255 within the loop that generates the lines.":
1 ;"In order to print lists or text using all the 24 lines on the screen, include POKE 23659,0 before each PRINT instruction. At the end, POKE 23659,2. Use PAUSE 0 to prevent the Scroll command corrupting the screen. PRINT #0 & PRINT #1 commands are also usable.":
1 ;"In order to make the first line of your program virtually non- deletable (by making it #0)POKE 23755,0: POKE 23756,0. To do this to other lines, first find their address X using routine 88, then POKE X-4,0: POKE X-3,0 The program will work provided you do not GOTO/GOSUB/RESTORE such lines.":
1 ;"INVERSE SCRL POKE ";A+13
1 ;"INTRODUCTION":
1 ;"INPUT SPRITE NUMBER (1-255)"
1 ;"INPUT SPRITE FILE NUMBER (1-5)"
1 ;"INPUT SPRITE FILE (1-5)"
1 ;"INPUT SPRITE ";A$
1 ;"INPUT SMALL SPRITE NUMBER":
1 ;"INPUT ROW":
1 ;"INPUT LENGTH":
1 ;"INPUT LARGER SPRITE NUMBER":
1 ;"INPUT HEIGHT":
1 ;"INPUT COLUMN":
1 ;"INK...0";
1 ;"INK...";IC:
1 ;"INK...":
1 ;"Having connected the EAR socket of the cassette-recorder to the Specrum, start PLAYing the tape ( Voice is best. Let Vol=max ) Enter CLEAR 32767:RANDOMISE USR 65290. All memory from 32768 to 65K is used. To replay, call routine 78.":
1 ;"GET SPRITE ";SNO;" (Y/N)":
1 ;"Follow the prompts to expand a REM statement (to accommodate code) anywhere in the program, by up to 9999 bytes":
1 ;"Follow the prompts to expand a REM statement (to accommo
1 ;"File number ";n
1 ;"File (Header + data)";''
1 ;"File (Header + data)";
1 ;"FLASH.0";
1 ;"FLASH.";IC:
1 ;"FLASH.":
1 ;"FILE= ";A$;" ADDRESS= ";NSPST:
1 ;"FILE ";r$;" NOT FOUND !"
1 ;"EXTENDED INTERPRETER FROM"
1 ;"ERROR-";
1 ;"Draw multipointed-stars & rings by first plotting a point near the middle of the screen & then using DRAW X,Y,N where X & Y have magnitudes from 10 to 60 & N lies between 8000 & 9999. You may need to experiment.":
1 ;"Draw any closed figure on the screen, then PLOT a point lying INSIDE it. POKE 59293 with the Attribute value to be filled,& then call this routine
1 ;"Do you have a PRINTER ?"
1 ;"Directory"
1 ;"Deleted Files are absent!"
1 ;"Delete";
1 ;"Corrupts the listing without affecting program execution: attempting to EDIT/alter lines could be fatal (thus useful for program protection, as are #61/ #80).":
1 ;"Continue (Y/N)";w$
1 ;"Call this routine at the start of your program, say by having as LINE 1, '1 RANDOMISE USR 60899'. Now if an error of the type D:BREAK,H:STOP in INPUT or L:BREAK into program occurs the program will not stop but will jump to the line number whose 2 byte equivalent is POKEd into 60952(lo) & 60953(hi).This line is initially 9495.":
1 ;"Call this routine at the start of your program, say by having as LINE 1, '1 RANDOMISE USR 60826'. Now if an error occurs, (other than types 0:OK,8:END or 9:STOP) the program will not stop but will jump to the line number whose 2-byte equivalent is POKEd into 60878(lo) & 60879 (hi)...initially 9495. For the error code, PEEK 23681.":
1 ;"COPY TR ";T;" ? (Y/N) "
1 ;"COPY File(s) (Y/N)";
1 ;"By combining this routine with No:s 37-40, joint scrolling of attributes can be done. Define a suitable box, use an Attr Val of 63 & call the Attr Scroll routine(s) once for every 8 calls of this routine."
1 ;"By POKEing 23606 & 23607 with different numbers, a corrupted character set is obtained. To normalise, POKE 23606,0 : POKE 23607,60. Protect your program with this, temporarily normal- ising before each PRINTing.":
1 ;"Break BASIC prog. a vyber port";
1 ;"BRIGHT0";
1 ;"BRIGHT";IC:
1 ;"BRIGHT":
1 ;"BASIC DEMO";
1 ;"Awtor(y)";
1 ;"Awtor(y) :";
1 ;"Awtor :"'" ";b$(n,
1 ;"Are you sure (Y/N)?":
1 ;"ATTRIBUTE SCROLLS":.LEN=27
1 ;"ATTR..0"
1 ;"ATTR..";IC:
1 ;"ATTR..":
1 ;"ANIMATION": .ATOF:.ROW=21
1 ;"ANIMATION"
1 ;"A Laser Zap routine can also be called,using
1 ;"5. Bez muzyki"
1 ;"4. Ne menee plohaq melodiq";
1 ;"3. Lambada";
1 ;"3 EPSON>"
1 ;"2. Wister";
1 ;"2 WM 80";
1 ;"1. Wywod wseh dannyh";
1 ;"1. Rabota s katologom knig"'"2. Rabota s dannymi ob awtorah"'"3. [tenie instrukcii"
1 ;"1. Mocart";
1 ;"1-Page1; 2-page2; 6-Down; 7-Up; 0-Copy; Enter-end. "
1 ;"1)Make line#1 a REM statement: then POKE 23755,100. You can RUN the program but not LIST it until you POKE 23755,0. 2)POKE 23636,150. To return to normal, POKE 23636,92. 3)Use CONFUSE (#98) ,call #65 & #66 to disable BREAKs, use CHR$ SCRAMBLE (#59) to scramble the listing & #68 to create non- deletable lines with
1 ;"1 EPSON";
1 ;"09.11.92"
1 ;"0123456789ABCDEF "
1 ;"....MICRODRIVE MENU"
1 ;"----> ";
1 ;", X - 256*INT(X/256)"'" POKE ";A+2
1 ;", New Attribute Val";
1 ;", INT(X/256)":
1 ;", Box width";
1 ;", Box height"
1 ;"*RATCOPY* Program System'90";:
1 ;" dannyh o knigah.";
1 ;" copied"
1 ;" Tape to Disk"''
1 ;" TURBO "
1 ;" TRK-";trk;:
1 ;" Start ";
1 ;" SUPERCOD "
1 ;" SPRITE ";
1 ;" SECT-";sec
1 ;" SAVE - BEEP ON ";
1 ;" SAVE - BEEP OFF ";
1 ;" RENAME ";
1 ;" PRESS PLAY ON TAPE."
1 ;" OPTION
1 ;" OASIS ";
1 ;" MODE - 41984,44032,44288 ";
1 ;" LASER BASIC ";
1 ;" Insert Disk and Press Any Key.":
1 ;" GENERATOR ";
1 ;" Firma 'Andrej SOFT'pred-";
1 ;" Disk to Tape":
1 ;" CLOCK - Set ";
1 ;" 44288 bytes - attr used ";
1 ;" 44032 bytes - 6 lines ";
1 ;" 41984 bytes - 14 lines ";
1 ;" 1. Rabota s diskowodom"'" 2. Rabota s magnitofonom"'" 3. Wwod nowyh dannyh"'" 4. Wywod dannyh"'" 5. Sortirowka katologa"'" 6. O{istka kataloga"'" 7. Izmenenie zapisi"'" 8. Udalenie zapisi"'" 9. Konec raboty"'"10. Rabota s dannymi ob awtorah"'"11. Razbitx katalog"'"12. Poisk knigi"'"13. Pere{enx awtorow"
1 ;" 0 3anyck nporpa
1 ;" - load MONITOR"
1 ;" & POKE ";A+3
1 ;" SUPER SCREEN IS ABSENT !!!!!":
1 ;" LOADING : FILE ";A
1 ;" LOADING : ";A$
1 ;" INPUT SPRITE FILE NAME"
1 ;" File ";
1 ;" then press any key":
1 ;" Do you wish to FORMAT the Microdrive cartridge (Y/N). "
1 ;" navmite l`bu` klawi}u":
1 ;" [itajte dalx|e...";:
1 ;" Old name: ";
1 ;" LASER "
1 ;" INPUT DATA LINE -- ";N+1
1 ;" END ADRESS:";end:
1 ;" NOW LOADING "
1 ;" ";
1 ;" PRESS ANY KEY ";
1 ;" STOP TAPE "
1 ;" ":
1 ;" ";
1 ;" "
1 ;" ";
1 ;" ":
1 ;" ":
1 ;" ":
1 ;" ":
1 ;" ";:
1 :Wr. bu Andrew MOA, 1301995
1 :C*SA$(I)#
1 :?V*AV+Fwx2?V
1 ::.COL=N:.PTBL:
1 :/Clock/"'" A-/All/
1 :.WR8V:.ROW=13
1 :.WR4V:.ROW=9
1 :.WR4V:.ROW=13
1 :.WR1V:.SET=4
1 :.WR1V:.ROW=21
1 :.WR1V:.ROW=16
1 :.WL1V::.SET=1
1 :.WL1V:.SET=3
1 :.WL1V:.SET=0
1 :.WL1V:.ROW=13
1 :.WL1V:.ROW=11
1 :.WL1V:.HGT=3
1 :.SL8V:.ATLV:
1 :.SETV:.ROW=3
1 :.SETV:.ROW=13
1 :.SETV:.ROW=1
1 :.SETV:.PTBL:.COL=7
1 :.SETV:.PTBL:.COL=29
1 :.SETV:.PTBL:.COL=24
1 :.SETV:.PTBL:.COL=21
1 :.SETV:.PTBL:.COL=18
1 :.SETV:.PTBL:.COL=11
1 :.SETV:.LEN=32
1 :.SETV:.COL=N-4
1 :.SETV:.COL=30
1 :.SETV:.COL=28
1 :.SETV:.COL=25
1 :.SETV:.COL=24
1 :.SETV:.COL=18
1 :.SETV:.COL=17
1 :.SETV:.COL=15
1 :.SETV:.COL=14
1 :.SETV:.ATOF:.COL=8
1 :.SETV:.ATOF:.COL=18
1 :.SETV:.ATOF
1 :.SETM:.PTBL:
1 :.ROW=Y:.COL=X:
1 :.ROW=N:.MOVE:
1 :.ROW=N:.COL=N:.PTBL:.COL=N+2
1 :.ROW=(Y*3
1 :.PTBL:.SPN=31
1 :.PTBL:.SPN=3
1 :.PTBL:.SPN=27
1 :.PTBL:.SPN=26
1 :.PTBL:.SPN=16
1 :.PTBL:.SPN=15
1 :.PTBL:.SPN=14
1 :.PTBL:.SETV:.COL=28
1 :.PTBL:.SET=1
1 :.PTBL:.ROW=8
1 :.PTBL:.ROW=6
1 :.PTBL:.ROW=5
1 :.PTBL:.ROW=4
1 :.PTBL:.ROW=3
1 :.PTBL:.ROW=21
1 :.PTBL:.ROW=20
1 :.PTBL:.ROW=19
1 :.PTBL:.ROW=13
1 :.PTBL:.ROW=11
1 :.PTBL:.ROW=10
1 :.PTBL:.HGT=6
1 :.PTBL:.HGT=3
1 :.PTBL:.COL=N+30
1 :.PTBL:.COL=N+20
1 :.PTBL:.COL=9
1 :.PTBL:.COL=7
1 :.PTBL:.COL=6
1 :.PTBL:.COL=5
1 :.PTBL:.COL=29
1 :.PTBL:.COL=27
1 :.PTBL:.COL=2
1 :.PTBL:.COL=19
1 :.PTBL:.COL=13
1 :.PTBL:.COL=1
1 :.PTBL:.COL=0
1 :.PTBL:.ATON:.LEN=32
1 :.MIRV:.SET=6
1 :.MIRV:.SET=5
1 :.MIRV:.ROW=18
1 :.MIRV:.LEN=26
1 :.MIRV:.COL=I:.ROW=1
1 :.MIRV:.COL=9
1 :.MIRV:.COL=7
1 :.MIRV:.COL=29
1 :.MIRV:.COL=24
1 :.MIRV:.COL=21
1 :.MIRV:.COL=18
1 :.MIRV:.COL=11
1 :.LEN=DC:.SP1=19
1 :.COL=X:.ROW=Y+2
1 :.COL=N:.SPN=22
1 :.COL=N:.ROW=1
1 :.COL=N:.PTBL:.COL=N+10
1 :.COL=N:.NPX=-1
1 :.COL=I:.SPN=7
1 :.COL=C:.SPN=19
1 :.COL=(X*3
1 :.ATON:.SPN=2
1 :.ATON:.PTBL:.ATOF:.SET=0
1 :.ATON:.PTBL:
1 :.ATOF:.SPN=19
1 :.ATOF:.ROW=5
1 :.ATOF:.ROW=3
1 :.ATOF:.ROW=16
1 :.ATOF:.PTBL:.SET=1
1 : .PTBL:.COL=10
1 :
1 9/%E,8MNRm+?3MCQa
1 9,8,12,3,7,2
1 9,7,16,2,7,2
1 9,1,1,1,1,3
1 9,0,5,22,2,14
1 8A@CBD$#!" x
1 888888888GGGGGGGGGGGGGGGGGGGGG
1 8888888888GGGGGGGGGGGGGGGGGGGG
1 8888888888888888888888888888888888888888888888888888888888888888xxxxxxxxxxxxxxxxxxxxx88888888888xxxxxxxxxxxxxxxxxxxxx88888888888xxxxxxxxxxxxxxxxxxxxx88888888888xxxxxxxxxxxxxxxxxxxxx88888888888xxxxxxxxxxxxxxxxxxxxx8888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888````````````````8888888888888888````````````````8888888888888888````````````````88?8888888888888````````````````88?888888888888888888888888888888888888888888888````````````````8888888888888888````````````````8888888888888888````````````````8888888888888888````````````````888888888888888888888888888888888888888888888888888888888888888888888888888888
1 8888888888888
1 80 Tracks [
1 8,8,13,2,7,2
1 8,6,17,2,7,2,22,9,7
1 8,6,11,5,0,5,22,9,7
1 8,31,145,32
1 8,14,14,0,7
1 8';/*Make trk
1 8 SAVE/LOAD
1 7supercodC
1 7rg]%W=c60Q PF1UW5
1 7S&UuPU%E``T?
1 7K,UM:[l4t.C
1 7,6,18,2,7,2,22,8,7
1 7,5,22,5,7,2,22,8,9
1 7,5,18,7,7,0,22,8,6
1 7,5,18,2,7,2,22,8,6
1 7,13;: LET Z=
1 7,13, you must enter PRINT
1 7,0,4,22,2,5
1 6s.code C
1 6s.code B
1 6_P#Sw'f@w v
1 6B,6V,6t,6e,6h,6
1 666676666670?
1 66666707666
1 66666666666
1 63 PD PVRRU cb6"QuUP
1 60039 Now Z is the required code.":
1 6,7,1,1,1,4,252,1,4,0
1 6,7,1,1,1,10
1 6,6,20,7,7,2,22,7,7
1 6) obqz.razwod
1 6%s'0UTUVU%R
1 5uvvrps3VS@
1 5supercodB
1 5superc$ C
1 5i|}mTq5W(j
1 5f3%q&`"QuUP
1 5`TGm525]P
1 5P`CUuPeqUPAp'VV%e]vsu`Q @TdUPE;tpUuUF&pSCW
1 530S0 PdURvUUt7[
1 5.8__VOtxt
1 5.04 (TURBO)
1 5,253,1,2,0:
1 5) stiranie
1 5%%VEeUP$0Cs@g
1 5 powt.razw
1 4096:SCRB
1 40 Tracks ~
1 4,1,3,1,2,1,1,1
1 4,1,11,7,0,7
1 4,1,10,11,0
1 4)+".LAZ"
1 4) prosmotr
1 4%UU%U2Pk[
1 4 rasstanowka
1 3pPD VRRU WRf
1 3SUPERCODB\
1 32,148,144,144,144
1 32,145,22,5,10,145
1 30000,d-30000
1 3,7,2,22,7,8:
1 3,6,1,1,2,11,7,1,2,0
1 3,6,1,1,1,14
1 3,6,1,1,1,11
1 3,5,1,1,1,5
1 3,3,1,1,1,9,7,1,4,0
1 3,12,6,1,6,3,1
1 3 soedineniq
1 3 proh C
1 3 dwustoron.
1 2xh:vh<2vh:|h<2|h
1 2SUPERCODBz
1 2MONSBETACE
1 2A_2r_2,u:
1 2;where file?
1 2;tmp sourse
1 2;tmp destin
1 2;comp.lenth
1 27,#2A;ESC *
1 255,1,2,0:
1 251,":,249,192
1 249;RANDOMIZE
1 23670 & 23671 now hold the less significant & more signi- ficant byte values respectively":
1 231,195,167,":
1 22,9,9,18,1
1 22,9,13,#FF
1 22,8,10,145,145,22
1 22,6,9,#FF
1 22,5,9,#FF
1 22,5,15,16,0,17,7,19,1
1 22,20,31,145,32,148
1 22,20,10,145,145
1 22,20,0,20,0
1 22,19,31,145,32,145
1 22,19,10,145,145
1 22,18,31,145,32,145
1 22,18,10,145,145
1 22,17,31,145,32,145
1 22,17,10,145,145
1 22,16,31,145,32,145
1 22,16,10,145,145
1 22,15,31,145,32,145
1 22,15,10,145,145
1 22,14,31,145,32,145
1 22,14,10,145,145
1 22,13,31,145,32,145
1 22,13,10,145,145
1 22,12,31,145,32,145
1 22,12,10,145,145
1 22,11,16,"?,22,12,12
1 22,1,10,145,145,32
1 22,0,1,146,144
1 218,195,167,":
1 217,195,167,":
1 21,2,7,2,19,1,22,6,6
1 20,0,7,22,2,4
1 2. A TO Babwgdevzijklmnoprstufhc~{}
1 2,1,2,1,3,1,2,1,1,1
1 2,1,2,1,1,1:
1 2) staraq plata
1 2#P0T GfUV
1 2 specifikaciq
1 2 storona _lementow
1 2 pererazwod
1 2 LOAD A PLATA
1 1pqsqs`'ft
1 1GaupRvu&#V
1 1FLAY CP
1 1EWWVVgV7V53gPTdwEUUtW5`GSCU5vuS
1 1;packed len
1 1;int mode $
1 1991 TJU B-disk version
1 1984 Tadeusz Wilczek V 1.1
1 19,0,16,7,145,145
1 151,151,151,151,151
1 151,151,145,146,144
1 147,146,144,144,144
1 146,144,144,144,144
1 145,22,9,10
1 145,22,7,31,145,32
1 145,22,7,10,145
1 145,22,6,10,145
1 145,22,11,10,145,146
1 145,22,10,10,145,148
1 145,19,1,16,6
1 145,148,144,144,144
1 145,145,22,9,31,145
1 144,149,32,145,151
1 144,147,32,145
1 144,144,147,32,146
1 144,144,144,149
1 144,144,144,147,32
1 144,144,144,144,147
1 13,5,20,2,7,2,22,14,6
1 13,10 ;CR+LF
1 111111111111111111111111111111111111
1 11,10,15,4,7,2,22,12
1 11,1,1,1,1,9,6,3,1,3
1 11,1,1,1,1,3,3,4,1,4
1 11,1,1,1,1
1 10,9,13,6,7,2,22,11,12
1 10,8,12,2,0,5,22,11,9
1 10,5,19,2,0,5,22,11,6
1 10,2,27,4,7,2,22,11,4
1 1) nowaq plata
1 1 opisanie korpusow
1 1 storona sloq
1 1 now.razw.
1 1 SAVE A PLATA
1 0`2AKUD*;8DZRkh
1 0ZAGRU C@
1 0LAY$ C
1 0FG&VG&'&V&&7V`vVw
1 0;trk/drive
1 0;tmp vars fmt
1 0;parm restore
1 0;num bad sec.
1 0;last trk rest
1 0;cur side
1 0;N 146 !>
1 0;2=db stp
1 0;0=rest all
1 08|||84$$EE,~
1 08|||84$$EE,9
1 08|||84$$EE,
1 010-,-,)()(%$%&
1 00{JO5_](=A
1 0,6,22,8,11:
1 0,6,22,5,2:
1 0,5,22,8,10:
1 0,5,22,2,10:
1 0,0;num of trks
1 0,0;hd spd
1 0,0,0,0,0,0,0,0,0,0,0
1 0,0,0,0,0,0,0,#7F80,0
1 0,0,#101,#301,#221C
1 0(LTL(4$$EE*Q
1 0(LTL(4$$EE*P
1 0(LTL(4$$EE*
1 0(2)&.v+)$
1 /want to/:
1 /t Drive/:
1 /rvice v. 1.00 /
1 /restoring ?/
1 /r Vasilevskij./
1 /quit the ADS/
1 /is formated./
1 /into drive/:
1 /implemented in/
1 /iPh&T Hacker Club./
1 /g}/o#:#w<2#w
1 /formated.../
1 /disk is not/:
1 /come. My tel. 373-/
1 /another ?/
1 /Your's Vladimir /
1 /Vasilevskij from
1 /Tracks :/
1 /This option is not/
1 /This disk/:
1 /Start the tape.../
1 /Speed: /:
1 /Specification/
1 /SPECIFICATION/
1 /SOON FM MiPh&T/
1 /Restoring/:
1 /Restore ?/:
1 /Re-Try :/
1 /RRECT DRIVE/:
1 /REAL ADS COMING/
1 /READ ERROR-SECTOR/
1 /Perhaps,/
1 /OPERATION INTERRUPTE/
1 /O adressing: */
1 /No room for file/
1 /MiPh&T HACKER CLUB./
1 /MONS4D C0u
1 /LAYOUT91Bj
1 /Hacker Club/
1 /GOOD LUCK/
1 /Formating/:
1 /Enter Disk Nam/
1 /ERROR: Write Protect/
1 /ERROR: Alien Disk!/
1 /Disk info/
1 /Disk Params/
1 /Damaged/:
1 /DISK UNUSABLE/
1 /DEMO version ADS./
1 /Continue/
1 /Compress to Tape /
1 /Compress to Disk/
1 /Complete/
1 /Check Specification/
1 /Can't read disk/
1 /Can't read anything./
1 /BAD DIRECTORY AREA/
1 /Analysing.../:
1 /Advanced Disk Se/
1 /@-Files not found/
1 /@-FILE COMPRESSOR /
1 /<ReRead>/
1 /<< START/
1 /<< START >/
1 /<< START /
1 /62-71 (Moscow)./
1 /......../
1 /---------/:
1 /-----------/:
1 /--------------/:
1 /,HACKER/:
1 /*==!=++--&&||<=<<>=>>->
1 /****************************
1 /**************************
1 /****** FILE SYSTEM ******/
1 /*** System Interface ***/
1 /* Spectrum Graphics and
1 /* Some arithmetic functions */
1 /* Last changed 20 Nov 1984 */
1 /* Last changed 10 Dec 1984 */
1 /* Version for ZX Spectrum */
1 /* String Handling Functions */
1 /* Storage Allocation and Freeing (Heap Management) */
1 /* Storage Allocation Structure and Variables */
1 /* Sorting function - a Shell sort */
1 /* Some Functions for 32 bit integer arithmetic */
1 /* Pseudo-Random Number Generator */
1 /* NB - the common ones are built-in for efficiency */
1 /* Function type forward declarations for non-int library functions */
1 /* Format conversion routine - ASCII to binary integer */
1 /* File system Structure */
1 /* Character Test and Manipulate Functions */
1 /* An illustration of how to grub around in the store */
1 /* Header for ZX Spectrum */
1 /* REAL ariphmetics */
1 /* last changed */
1 /* 03.01.1991 */
1 /* End */
1 / To Tape/:
1 / To Disk/
1 / IGNORE/:
1 / Can't Compress. /
1 / Any questions wel/
1 / 1992 Vladimi/
1 .mcoder CV
1 .TFcop128B
1 .S. afler compilati-
1 .COL=N:.ROW=3
1 .COL=(((N(3
1 .ATON:.SPN=4
1 .ATON:.ROW=10
1 .ATOF:.SPN=19
1 .ATOF:.SPN=15
1 .ATOF:.SPN=14
1 .ATOF:.SPN=13
1 .ATOF:.ROW=16
1 .ATOF:.LEN=-1
1 .ATOF:.COL=25
1 .","","","",""," Cnac
1 -boot C
1 -Return to Copy":
1 -N:.SPN=55
1 -N:.SPN=54
1 -N:.SPN=53
1 -GENS4B C0u
1 -3ppPPD @WSPf6UwpS
1 ----Warning! Error in header--------Can try remove. N-Escape----
1 ---- Input New Name of Disk
1 ,wx;"knigah. Dannye ob";
1 ,wx;"awtorah terq@tsq.";
1 ,wx;"Konec raboty. Uweren (Da/Net)?"
1 ,wx;"6. ";e$
1 ,wx;"5. Uplotnenie diska";
1 ,wx;"4. Udalenie fajla";
1 ,wx;"4. ";e$:
1 ,wx;"4. ";e$
1 ,wx;"3. Prowerka zapisi";
1 ,wx;"3. Katalog diska";
1 ,wx;"3. Dannye na awtora...";
1 ,wx;"2. Wywod s nomera";
1 ,wx;"10. Pere{enx imen awtorow"
1 ,wx;" Uweren (Da/Net)?"
1 ,wx;" Net mesta dlq nowyh zapisej!":
1 ,wx;" 9. Rabota s dannymi o knigah";
1 ,wx;" 8. Konec raboty";
1 ,wx;" 7. O{istka ";c$;
1 ,wx;" 6. Udalenie ";c$;
1 ,wx;" 5. [tenie instrukcii";
1 ,wx;" 4. Wywod ";c$;
1 ,wx;" 3. Wwod nowyh ";c$;
1 ,wx;" 2. Rabota s magnitofonom";
1 ,len_Bt+15
1 ,bdir:bdirr
1 ,LMMS:fmtd
1 ,DLDR+TO_SCR-#5D3B
1 ,BUFFER-16:
1 ,BUFFER+2276
1 ,BUFFER+#E0
1 ,BUFFER+#8E1
1 ,;/* Znakogenerator */
1 ,7Q'AI`|jc
1 ,(_L2+TDISP):
1 ,(_L0+TDISP)
1 ,(LAST_1):
1 ,(INTMODE):
1 ,(INFB+6):
1 ,(INFB+2):
1 ,(INFB+#E7)
1 ,(INFB+#E5):
1 ,(INFB+#E3)
1 ,(INFB+#E2):
1 ,(FREE_T):
1 ,#W@ITQm|s
1 ,#FFF2;*!4312
1 ,#7J@Yhe{v
1 ,"VARIABLES SEARCH/LIST",1
1 ,"UNI-NOTE SOUND-GEN",5
1 ,"UNI-BEEP SIMULATOR",15
1 ,"UNCONFUSE LISTING",1
1 ,"U-CASE STRINGS",1
1 ,"U-CASE PROGRAM",1
1 ,"TAPE HEADER READER",1
1 ,"SUPER-RENUMBER",1
1 ,"STAR/TORUS DRAW",1
1 ,"SHUTTER-SCROLL RIGHT",10
1 ,"SHUTTER-SCROLL LEFT",10
1 ,"SCREEN-PRINT",1
1 ,"SCREEN STORE",1
1 ,"SCREEN SEARCH",1
1 ,"SCREEN OVERPRINT",1
1 ,"SCREEN INVERT",1
1 ,"SCREEN GRID",1
1 ,"SCREEN FILL",1
1 ,"SCREEN EXCHANGE",1
1 ,"SCIFI CHARACTER SET",1
1 ,"RIPPLE-SCROLL RIGHT",255
1 ,"RIPPLE-SCROLL LEFT",255
1 ,"REPLAY SOUND",0
1 ,"REMKILL CONDENSER",1
1 ,"RECORD SOUND",0
1 ,"RANDOM NUMBER GENERATOR",20
1 ,"PROTECT PROGRAM",1
1 ,"PAPER CHANGE",1
1 ,"PAINT-FILL",1
1 ,"ON ERROR GOTO",1
1 ,"ON BREAK GOTO",1
1 ,"OBLIQUE SCROLL-OFF",1625
1 ,"NON-DELETABLE LINES",1
1 ,"MULTI-BEEP SIMULATOR",8
1 ,"MONOCHROME PROGRAM",1
1 ,"MEMORY AVAILABLE",1
1 ,"LORES TOP 2/3 SCR-RGHT",255
1 ,"LORES TOP 2/3 SCR-LEFT",255
1 ,"LORES TOP 1/3 SCR-RGHT",255
1 ,"LORES TOP 1/3 SCR-LEFT",255
1 ,"LORES SCROLL-UP",24
1 ,"LORES SCROLL-LEFT",33
1 ,"LORES SCROLL RIGHT",33
1 ,"LORES R-DIAG SCROLL",22
1 ,"LORES MID 1/3 SCR-RGHT",255
1 ,"LORES MID 1/3 SCR-LEFT",255
1 ,"LORES LOW 2/3 SCR-RGHT",255
1 ,"LORES LOW 2/3 SCR-LEFT",255
1 ,"LORES LOW 1/3 SCR-RGHT",255
1 ,"LORES LOW 1/3 SCR-LEFT",255
1 ,"LORES L-DIAG SCROLL",22
1 ,"LINE RENUMBER",1
1 ,"LINE ADDRESS",1
1 ,"L-CASE STRINGS",1
1 ,"L-CASE PROGRAM",1
1 ,"INK CHANGE",1
1 ,"HIRES SW-DIAG SCROLL",190
1 ,"HIRES SE-DIAG SCROLL",190
1 ,"HIRES SCROLL-UP",175
1 ,"HIRES SCROLL-RIGHT",255
1 ,"HIRES SCROLL-LEFT",255
1 ,"HIRES SCROLL-DOWN",200
1 ,"HIRES NW-DIAG SCROLL",176
1 ,"HIRES NE-DIAG SCROLL",176
1 ,"HEX->DEC CONVERTER",1
1 ,"HEX LOADER",1
1 ,"FREE-SCROLLER",1
1 ,"FLASH SWITCH",1
1 ,"FLASH ON",1
1 ,"FLASH OFF",1
1 ,"EXPAND REM",1
1 ,"EXPAND PROGRAM",1
1 ,"DUAL-NOTE SOUND-GEN",10
1 ,"DEC->HEX CONVERTER",1
1 ,"CONTRACT PROGRAM",1
1 ,"CONFUSE LISTING",1
1 ,"COMPRESS NUMBERS",1
1 ,"CLEAR ALL ",1
1 ,"CHR$ SCRAMBLE",1
1 ,"BRIGHT SWITCH",1
1 ,"BRIGHT ON",1
1 ,"BRIGHT OFF",1
1 ,"BORDER EFFECTS",10
1 ,"BLOCK MEMORY INSERT",1
1 ,"BLOCK LINE DELETE",1
1 ,"BLOCK LINE COPY",1
1 ,"AWAIT KEYPRESS",1
1 ,"ATTRIBUTE SCR-UP",40
1 ,"ATTRIBUTE SCR-RIGHT",200
1 ,"ATTRIBUTE SCR-LEFT",40
1 ,"ATTRIBUTE SCR-DOWN",40
1 ,"ATTRIBUTE FILL",1
1 ,"APPEND STATEMENT",1
1 ,"ANALYSE PROGRAM",1
1 ,"ANALYSE MEMORY",1
1 ,"ALL-RIGHT SCROLL",32
1 ,"ALL-LEFT SCROLL",32
1 ,"24-LINE PRINTING",1
1 ,"2 BYTE CONVERTER",1
1 ," ":.MIRV
1 , use a fresh cassette - the routine is saved under the name ";
1 , use GOTO 9001(not RUN)to restart the program."
1 , ENTER FOR PAUS
1 , 198328,
1 +tobos C
1 +p+q+r+s"\
1 +^+V+~+N++++"
1 +RC:.ROW=13
1 +RC:.ROW=10
1 +MCODER Bw
1 +C:.ROW=14
1 +C:.ROW=13
1 +C:.ROW=11
1 +C:.ROW=10
1 +A;", 26";
1 +4) ;num_f
1 +-*]\"[\*Q\
1 ++~###W~2U
1 ++F+N+++"]\*S\~
1 ++F+N+++"]\
1 +(Y@BZqgpk
1 +((YS+SY+M)*32
1 +"W\#"S\"K
1 + Del file
1 *tape5.0 C
1 *boot& B
1 *]\###q#p##"]\
1 *YOUR MOVE!B
1 *W\#"S\"K\6
1 *TurbCopyB
1 *Tp-DkCopB
1 *TOBOS By
1 *S\##"]\^#V
1 *BOOT 50 B@1
1 *;YTBEj&.l
1 *:^QH7sbrw
1 *-/-/0o-!v.>'##
1 **m~#"*mo&
1 **OUT OF FILE**
1 ***AUTO-SAVING***
1 *(YC+CY)))
1 *&-!~VU
1 )riSPX-*=c`"rb{x
1 )omnicopyC0u
1 )kuGA[Uoy;E
1 )ku?IS]gI;E
1 )EPS-DRIVB
1 )=a$(i+(z1+1
1 )=(O(I)-25
1 );/* Screen/Tape */
1 ):.ROW=(Y*3
1 ):.COL=(X*3
1 )9boot B
1 ),(sec-224
1 )+XS+SX+N),CA:
1 )*((max-i)>8
1 )):.ROW=((N(1
1 ))%%%%&)))%%%%&)))%%%%&)%%&)%%&&&&))
1 ))!!))""))
1 )'&&&'&&&'&&&&&'''$"""&$$$!")))))
1 )%5OGYmaes
1 )")""$$&&&'$)))
1 )!)")')&)!)"
1 (sy<<8)+sx;
1 (rod C`m
1 (es) es=s[i];
1 (amcopierC
1 (adr+j));:
1 (_SP+TDISP),
1 (_L2+TDISP),
1 (_L1+TDISP),
1 (_L0+TDISP),
1 (_IM+TDISP),
1 (_F2+TDISP),
1 (_F1+TDISP),
1 (SPST),AL:
1 (SPND),AL:
1 (RW+SSPH)>LSPH
1 (OMNICOPYB[
1 (OLD_ERR),
1 (INFB+#F4),
1 (INFB+#E6),
1 (INFB+#E5),
1 (INFB+#E4),
1 (INFB+#E2),
1 (INFB+#E1),
1 (Disk version)
1 (CL+SSPL)>LSPL
1 (BREG)*256
1 (BORD_CR),
1 (;/*Set drive/side
1 (;/*Fmt data
1 (;/* Tape Loader */
1 (8boot B
1 (7boot B?
1 ((O(I)-(25
1 ("b:"+A$(I)),A$(I)
1 ("B:"+A$(I)),A$(I)#
1 ( Top secret )
1 'v5u0cCUwU
1 'S4CXTq"4X
1 'EFU`eU TUvR
1 '>.>m- 44r<2u2%1/?
1 '6boot B
1 '5boot B
1 '.0:HR\fpz
1 '-39N[Xat}
1 '(exit).You willthen have the option of SAVEing the routine on tape,QUITting to BASIC or restarting."
1 '''" Kon
1 ''" O.K. (Y/N)"
1 '&&&'&&&'&&&&&'''$"""&$$$!"
1 '#39OTUoys
1 '"Packed=";
1 '"PAPER ";:
1 '"OVER ";:
1 '"NOT USED CODE-";k;" ";
1 '"INVERSE ";:
1 '"FLASH ";:
1 '"DELETE";
1 '"CURSOR UP";
1 '"CURSOR RIGHT";
1 '"CURSOR LEFT";
1 '"CURSOR DOWN";
1 '"BRIGHT ";:
1 '" nowyj kopirow{ik pozwolit wam bez osobyh problem kopirowatx s diska na disk dave esli u was imeetsq wsego odin diskowod"
1 '" (1)At 10% Speed, using PAUSE"'" (2)At Full Speed"
1 '" kopirow{ik *
1 '" To access the next routine in the Index, press '
1 '" To access a routine whose no: you know, press '
1 '" If you would like to have the details of this routine again, press '
1 '" If you wish to return to the Index, press '
1 '" - compressed form in RAM -"'"
1 '" Tape - Tape Copy V 01.02"
1 '" - compressed form in RAM -"'"
1 '" gospoda programmisty !"
1 '!JJCM&JMDEYU$
1 ' (repeat)"
1 ' (number)":
1 ' (index)"
1 ' (continue)"
1 &Wpb0pwPRPU@@TPpp
1 &Kf+0z7q-gSY
1 &DIS54000C
1 &AMCOPIERBT
1 &;/*FDC instrs
1 &;/*DOS subs
1 &4boot Bb
1 &3boot B
1 &-4;BIPW^elsz
1 &(2DNQZlv{
1 &''''''''''(
1 &#eRU Ucv`w
1 %wf" QuUPUuQ
1 %rUR"gRBwSUU#e
1 %q%UFQUU$`
1 %c#20R0`0FURqV@vE
1 %CUCMWakuIv%+X
1 %@pRbU%veR
1 %2boot B
1 %/9C"qasyn
1 %,3:AHOV]dkry
1 %+1GMSZou{
1 %))))))))))% $$$$$$$$$$#>
1 %(1DNPZlv{
1 %'02O]Zhyk
1 %% Shit ! %%
1 $d%EUUPt4U
1 $SET_SIDE
1 $DISASSM B
1 $DIS+EDITB~
1 $;/* Parameters */
1 $1boot B
1 $0boot Bs
1 $.2:OVZbw}
1 $+Y3-Txgyv
1 $+6:WRIRQ
1 $+29@GNU\cjqx
1 $+1-scr_beg
1 $$=? STXW<>RP|^&OQ+-*/%
1 $$)$)$)$&)&&&)&&!"!"!"
1 $!"&$!"&$!""))))))
1 #s;"Listing of ";f$;".CODE":
1 #kxSFTK=69g|?l|r
1 #gce0 PqtTW@UdE
1 #eugfU02Wv`B f;URYcUU
1 #define maxin 16
1 #define end_c 0x38
1 #define HEAPSIZE 1000
1 #define void int /* to use for type of functions which return no value */
1 #define TRUE 1 /* " */
1 #define NULL 0 /* for use with pointers */
1 #define FALSE 0 /* for Boolean operations */
1 #define ERROR -1
1 #define EOF -1 /* end of file value */
1 #^#V#N#F#n&
1 #T]##N#F#~
1 #J'#.'1;eWp`mw
1 #FF,32,#FF,0,#FF,#FF
1 #FF,32,"8,#FF
1 #FF,#FFFF:
1 #FF,#807F,0,0:
1 #FF,"0,#FF
1 #FC04,0,#AA55,#AA55
1 #F404,#1414
1 #C'Fs2uv"prS
1 #AA55,#AA55,0,#CC00
1 #555D,#225D:
1 #504E,#C00
1 #3FE5,#2D87,#3DB5
1 #3FE2; v5.01
1 #3F6,#1FC,#324E
1 #3F5,#1FB,0,#1F7,#364E
1 #3D2F:bdr
1 #2F1B; for
1 #2F0F; TR DOS
1 #2F07; adres.
1 #2ED1;TRDOS
1 #2EC5;v5.01
1 #2EBD; for
1 #2A53,#3FEC,#3FCA
1 #2A09;for TRDOS
1 #1FE,#300,#101
1 #1F7,#164E,#C00
1 #1F44,#1515,#1515
1 #1F44,#1513,#1513
1 #1F15,#1F42,#1115
1 #1F10,0,#1414,#F414
1 #1711,#1713,#1F17
1 #1710,#1414
1 #1414,0,#FC00,#F404
1 #1414,0,#1F00,#1710
1 #1414,#F414
1 #1414,#1714
1 #1414,#1414,#1714
1 #1414,#1414,#1414
1 #1111,#1F1B,#1F42
1 #1010,#1010,#1F10,0,0
1 #0100 ;256
1 #*18?FMT[bipw~
1 #)?EJQgcsy
1 ###~#fo#~#fo
1 ##########################
1 #"a\"c\"e\*
1 #"a\"c\"e\!
1 #"a\"c\"e\
1 #!!!]]]]YYYYUUUWK
1 # p T PRbW0P1#[R
1 "tfcopy-2"
1 "sbc","scf","set","sla","sp.","sra","srl","sub"
1 "rod "
1 "real.libCpb
1 "r.","res","ret","reti","retn","rl","rla","rlc","rlca","rld","rr","rra","rrc","rrca","rrd","rst"
1 "programs.This BASIC program letsyou list,test,customise,relocateSAVE & VERIFY routines easily - but the routines will work just as well if the program is absent"
1 "p.","pe.","po.","pop","push"
1 "or","org","otdr","otir","out","outd","outi"
1 "o,"c,"d,"s,"q,"r
1 "nc.","neg","nop","nv.","nz."
1 "mons3 C@
1 "mon 7.05"
1 "l.","ld","ldd","lddr","ldi","ldir"
1 "h.","halt","hl.","i.","im","in","inc","ind","indr","ini","inir","ix.","iy."
1 "e\"a\"c\*B\
1 "e.","ei","ent","equ","ex","exx"
1 "doctor r"
1 "d.","daa","de.","dec","defb","defm","defs","defw","di","disp","djnz"
1 "compiles from RAMtop":
1 "boot ":
1 "b.","bc.","bit","c.","call","ccf","cp","cpd","cpdr ","cpi","cpir","cpl"
1 "a.","adc","add","af'.","af.","and"
1 "`U%w'PRUPWW"UUup
1 "ZEUS-file name:";f$
1 "UDDDDDDDDDDD
1 "U%guD%@WffpV
1 "This routine has now been saved.Replay it NOW to VERIFY. If the recording is bad, you will be automatically returned to the SAVE option via the Error-trap routine."
1 "The save MUST then be verified."
1 "The code is from 57344 to 65461:it overwrites the first 12 UDGs.RAMTOP has been cleared to 57340"
1 "The Index follows- input the no:of a routine for its description(incl all addresses & POKEs)& anoptional example.Get to know theMenu options ";:
1 "That was the Laser Zap. Now for the Uni-Beep.":
1 "TOP COPY"
1 "TFCOPY-2"
1 "SpritGen"
1 "Screen output":
1 "Saving ";f$;".
1 "S\"K\"U\#"Y\
1 "SPRITE2B"
1 "SPRITE2A"
1 "SINCLAIR DISC TOOL"
1 "S$ V1.03"
1 "RVwPTupUuuEV%
1 "POKEs necessary for tailormakingthe program to your specific needs ) press '
1 "Output to file: ";d$;".#":
1 "Output file name:";d$
1 "Open err. ";er:
1 "Not found":
1 "Nom. Awtor/Proizwedenie"'':
1 "No asm file":
1 "Name of Super Screen";s$
1 "NOT USED CODE-";k;" ";
1 "Loading asm text: ";f$;".
1 "LASLOBJ"
1 "Insert disk, then press ENTER ";
1 "Insert MS-DOS disk in drive A:"'" Strike any key when ready."
1 "INSERT IBM DISK AND PRESS ENTER":
1 "FileName":
1 "File tape5.0<
1 "File name for
1 "Err code=";c:
1 "D,19,0,#FF:
1 "D,"S,#FF:
1 "Compiles from RAMtop":
1 "Book cat"
1 "Basic integer compiler":
1 "BASIC floating compiler":
1 "A","B","W","G","D","E","V","Z","I","J","K","L","M","N","O","P","R","S","T","U","F","H","C","[","\","]","Y","Q","a","b","w","g","d","e","v","z","i","j","k","l","m","n","o","p","r","s","t","u","f","h","c","{","|","}","~","`","q"
1 ">,#FF:rsn
1 ";c$''" X
1 ";beg;",";end-beg:
1 ";beg;" ";len:
1 ";beg;" ";len
1 "9";"Uweren (D/N) ?"
1 "9";"Pere{enx awtorow"'''
1 "9";"BETA VERSION 1.0"'''
1 "7";" - HELP Page"
1 "63199",o:
1 "63198",i:
1 "62657",(l-r):
1 "62656",(k-q):
1 "6";"T.559-43-49 V.SIDOROV"'''
1 "6";"PETERBURG 03.07.1991.";:
1 "6";"COPIER DISK-DISK 128 K"'''
1 "50")=b$(i,
1 "5";"5. ";c$:
1 "5";"4. Knigi odnogo awtora";
1 "5";"4. ";c$:
1 "5";"3. Wywod s nomera";
1 "5";"3. Prowerka zapisi";
1 "5";"2. Dannye na bukwu";
1 "4)Imbed hidden colour CHR$ to set INK=PAPER within non-delet- able lines:the listing vanishes5)Autostart by using SAVE Name$ LINE X. Let line X be 'LET ERR= 256*PEEK 23614 +PEEK 23613:POKE ERR,0:POKE ERR+1,0'. Any BREAK/ error will now cause a crash.":
1 "3";"MONITOR v7.05 INTRODUCTION"
1 "3";"Dannye o knigah terq`tsq.";
1 "3";"6. ";c$
1 "3";"5. Uplotnenie diska";
1 "3";"4. Udalenie fajla";
1 "3";"3. Katalog diska";
1 "23919",x:
1 "23918",y:
1 "16",y;"Tape-file copy 03.01":
1 "16",y;"Tape-file copy 02.04":
1 "13";"O.K.":
1 "11";" 3an
1 "11";" ":
1 "1,#FF,"5,#FF:
1 "1,"6,#FF,"3,"2,#FF
1 "0,19,0,#FF
1 "-,22,7,2:
1 "-,22,11,4:
1 ","nponaqa
1 ")07>ELSZ2
1 "''" /Rename/
1 "#";N;": ";
1 """""""33"""fffwfffffffww
1 """""""3""""
1 """""""""""
1 "!WGJ\S|axg
1 " S$#0&dcR40"$
1 " Press any other key to restart."
1 " - tape-file copy - 6/87 - "
1 " - Tape-File Copy - 88.1 -"
1 " ";"(";B$(I);")",,:
1 " The routines run hundreds of times faster than BASIC,& can becustomised easily. Do enjoy yoursuperb Z80 MachineCode Library!"
1 " TRK=";(trk);" SEC=";(sec);" MARGIN=";
1 " TRK=";(trk);" SEC=";
1 " Keep a written record of the name, address & length of this routine, as well as of all the relevant POKEs. For details on relocation, refer to the manual."
1 " If you have noted important details ( address, length, any"
1 " BEGIN ADRESS:";beg;
1 !u'%R$4PQA
1 !stdio.l Cpb
1 !stdio.h Cpb
1 !Yz{@\S('VhtQ@$7
1 !R1E%GaRUA
1 !;/*Set Drive Parms
1 !9V"Q\!lW"Y\1
1 !(/6=DKRY`gnu|
1 !$$$$$$$$$$"
1 wpoke(0x5b04,c);
1 wpoke(0x5b02,str);
1 wpoke(0x5b02,r);
1 wpoke(0x5b02,b);
1 wpoke(0x5b00,rl );
1 unsigned duration,pitch;
1 tostr(s,r);
1 toreal(r,s);
1 to translate ?
1 to track:
1 swops the current screen & the STOREd one A screen has 6912 bytes (24*32* 8, + 24*32 Attributes) & should be stored above RAMTOP (CLEARed downwards to make room).To have a screen from X-6911 to X use POKE ";A+1
1 static sx,sy,de,bc;
1 static ft;
1 static de,hl;
1 software
1 soedin. NR:
1 sobolew s.w.----------------- 1992 ---------
1 sobolew a.w.-----------------
1 sign=*str;
1 sector(s) damaged in
1 scanf("\n%s",s);
1 saves a screen,
1 return i;
1 return _colour(17,i);
1 return _colour(16,i);
1 recalls it.
1 pw""$r`r0R0
1 putc(i,2);
1 putc(h,2);
1 push(0x5b04);
1 push(0x5b02);
1 printf("\025%c",on?0:1);
1 poke(addr+1,data/256);
1 pitch=pitch/10;
1 p#ue&5g]m-cb7
1 move(a,b,5);
1 messages"
1 machinecode routines which you can call(using RANDOMIZE/PRINT USR) bothdirectly & from within your own"
1 k _lementu :
1 inline(6,0xe,0xef,0xe,end_c,
1 inline(6,0xd,0xef,0xd,end_c,
1 inline(6,0xa,0xef,0xa,end_c,
1 inline(0xef,5,end_c);
1 inline(0xef,4,end_c);
1 inline(0xef,3,end_c);
1 inline(0xef,0xf,end_c);
1 inline(0xef,0x2e,end_c,
1 inline(0xed,0x5b,&de,
1 inline(0xdd,0xe5,
1 inline(0xdd,0x46,4,
1 inline(0xcd,25236);
1 inline(0x2a,0x5c5d,0xe5,
1 inline(0x2a,0x5b10,0x5e,
1 in DEMO version
1 if/******************************/
1 if(sign=='-')
1 if(sign=='+'||sign=='-')
1 if (i<0 | i>7) return -1;
1 if (dy<0)
1 if (dx<0)
1 if ( ! pitch)
1 ft=duration*pitch/10;
1 dalee ? (Y/N)
1 char sign;
1 bc=(dy<<8)+dx;
1 _exit(n);
1 _beep(ft,cast(unsigned)43750/pitch-30);
1 YURINSOFT 1992 Moscow tel. 439-58-... All rights reserved. BEST SYSTEMS FOR SPECTRUM: GENS4 and MONS4 PRESENT FOR 306-22-23
1 YURIC MAGIC
1 Y.Kovalevsky /Leningrad/1990"
1 V.RUMSEY
1 V.L.V.1992
1 Torun 1986
1 TURBO ?(y/n)";
1 TOO MANY BASIC FILES!
1 THIS DISK'S EMPTY
1 Start-up of file
1 SCREEN COMPRESSION PROGRAM
1 ROUTINE # 65 HAS PREVENTED YOU FROM BREAKING INTO THIS PROGRAM
1 Press any key!
1 PUNKS NOT DEAD !
1 PRESS ANY KEY TO TURN THE PAGE
1 POKE 63951,Duration. To save it use SAVE 'ZAP'CODE 63950,26."
1 POKE 23607, 223
1 PC AF BC DE HL IX IY Br
1 OVERPRINT
1 New name of file
1 NOT MORE 18 BASIC!
1 NO FILES ON DISK!
1 MON+GEN B
1 MIPhT 1993 ----
1 LINE NUMBER TOO BIG FROM LINE!
1 Input Name of Assembler's Text
1 INSERT Z.X DISK AND PRES ENTER
1 Founded Error in Chain of Files
1 F.VACHHA
1 DynaSoft 1990 Version W.1
1 Disked By SOFTSTAR'92 Moskow
1 Disk drive of
1 DOS ERROR ":
1 DOS 5.01 Tool
1 DISK ERROR!
1 DISK ALREADY CLOSED!!
1 DEMO-DEMO-DEMO-DEMO-DEMO-DEMO
1 Cracked by *ANDY'90*
1 Copyright YURIC
1 Catalog or File?
1 CS+SS+V -
1 CS+SS+S -
1 CS+SS+Q -
1 CS+SS+N -
1 BAD LINE STRUCTURE-END LISTING
1 Arnost Vecerka - Olomouc -"
1 Are you sure (Y/N)?
1 A.Dereshchuk Software 1989 "''
1 ;/*Init FDC
1 ;/*Fast Disk?
1 : does not follow a ? properly
1 50 proofs
1 251;bit 7 (!)
1 251;bit 6 (!)
1 250 proofs
1 25 proofs
1 1993 YRIC
1 1993 VLADIMIR VASILEVSKIJ.MiPh&T HACKER CLUB.
1 1992 Wolf Recearch"
1 1992 YURINSOFT CORPORATION
1 1990, MOA&PV'turbo V2.5
1 1990 S.PETERBURG
1 1990 MOA Service
1 1990 Korshunov Denis
1 1983 THRELFALL and HODGSON Compiled OK Program Length = bytes To run enter RAND USR "
1 11.02.1993 1.22 A.M
1 100 proofs
1 10 proofs
1 0/(y/n) ?";
1 .ROW=R:.COL=C:
1 .LEN=L:.HGT=H:.ROW=R+1
1 .COL=N:.ROW=3
1 - PRESS ANY KEY TO GO ON
1 *<EHQgnsz
1 *<EHQdnrz
1 'RESTORE'
1 ";err;" in disk.":
1 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~
1 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^
1 while (putchar(*s++));
1 while (isspace(*s)) ++s;
1 while (isdigit(c = *s++)) value = 10 * value + c - '0';
1 while (c = *s++) putc(c, fp);
1 while (TRUE)
1 while (--n > 0 && (c = getc(fp)) != EOF)
1 while (*s++) ++length;
1 while (*s == *t)
1 while (*dest++ = *source++) ;
1 while (*base++ = *add++);
1 while (*base) ++base;
1 while ((c = getchar())
1 value = 0;
1 unsigned u, i;
1 unsigned n;
1 unsigned n1,n0;
1 unsigned n, d;
1 unsigned _size;
1 unsigned n, size;
1 two arithmetic functions vhich need to be declared BEFORE they are used,
1 struct _header * _ptr;
1 static unsigned length;
1 static unsigned gap, byte_gap, i;
1 static unsigned nbytes;
1 static int i;
1 static int c, value, sign;
1 static int argc, *argv, min;
1 static int argc, *argv, max;
1 static int c;
1 static char x[4], product[4];
1 static char p,
1 static char k[4];
1 static char *p;
1 static HEADER *p, *q;
1 static HEADER *p, *q;
1 sign = 1;
1 routines if you want to compile a large amount of code and don't need them.
1 return result;
1 return p;
1 return max;
1 return *s - *t;
1 return ((c == EOF && cs == s) ? NULL : s);
1 return sign * value;
1 return result;
1 return n<0 ? -n : n ;
1 return n ?
1 return length;
1 return isprint(c) & ! isalnum(c);
1 return isalpha(c) | isdigit(c) ;
1 return c >= ' ' & c < '\177' ;
1 return c < 0x80 ;
1 return c < ' ' | c == '\177' ;
1 return * cast(__char_ptr) address;
1 return (_rnum[1] << 8) + _rnum[0];
1 result = dest;
1 result = base;
1 program. You may wish to make a version of this file without these two
1 p=heap_ptr;
1 p = q->_ptr;
1 p = cast(HEADER_PTR) (block - 1);
1 nbytes = (n * size + (sizeof(HEADER) - 1)) / sizeof(HEADER) + 1;
1 move(c, a, 4);
1 min and max are in "stdio.h"
1 min = 32767;
1 max = -32767;
1 long_set(product, 0,0);
1 long_multiply(_rnum, _rnum, k);
1 long_init(k, 0x41c6,0x4e6d);
1 long_init(k, 0,0x3039);
1 long_init(_rnum, 0,n);
1 long_copy(c, product);
1 long_add(_rnum, _rnum, k);
1 length = 0;
1 int i, j;
1 int (*cmp_func)();
1 int num_items, size;
1 int n;
1 inline(0xef,0x1b,end_c);
1 inline(0xe1,0xe1,0xe1,
1 inline(0xCD,0xD6B);
1 if you include "stdio.h" these functions will always be compiled into your
1 if (q + q->_size == p)
1 if (p + p->_size == q->_ptr)
1 if (heap_ptr+n > heap+HEAPSIZE) return ERROR;
1 if (d < 3) a[d+1] = n >> 8;
1 if ((q = _allocp) == NULL) /* no free list */
1 if (*s == '-') { ++s; sign = -1; }
1 heap_ptr += n;
1 for(i=0;i<lng;i++)
1 for(ft=0;ft<duration;++ft)
1 for (q = _allocp; !(p > q && p < q->_ptr); q = q->_ptr)
1 for (i=0; i<4; ++i) a[i] = 0;
1 for (gap = num_items >> 1; gap > 0; gap >>= 1)
1 else if (*s == '+') ++s;
1 else q->_ptr = p;
1 else p->_ptr = q->_ptr;
1 char *s, *t;
1 char *list;
1 char *dest, *source;
1 char *block;
1 char *base, *add;
1 char *a, *c;
1 boot Games MORE THEH 16 FILES ! NO BASIC FILES ! COPYRIGHT TOLLYSOFT.1992 :=`
1 because they are variadic (take any number of arguments). This means that
1 because they are variadic
1 a[d] = n & 0xff;
1 a[3] = n1 >> 8;
1 a[2] = n1 & 0xff;
1 a[1] = n0 >> 8;
1 a[0] = n0 & 0xff;
1 _allocp = q;
1 [ENTER]-Yes/No
1 Size of a
1 RNDr. Arnost Vecerka -"
1 READY-DESTROYING PROTECTION!
1 PLACE
1 Name Start Length Blk Sec Trk
1 Leningrad
1 INCLUDE
1 ENTER ACCEPT!
1 END OF LINE!
1 DOS ERROR!!!
1 Continue ?
1 Catalog savid
1 0xeb,0xed,0xb0,0xaf,
1 0xcd,0x2bf1,0x2a,0x5b00,
1 *cs = 0;
1 *cs = '\0';
1 * cast(__char_ptr) address = value;
1 'RESTORE'":
1 {if(es) es=s[i];
1 sy= -1;
1 sx= -1;
1 men`
1 for(pitch=4630;++pitch;);
1 dy= -dy;
1 dx= -dx;
1 VARIABLE SEGMENT SUPRESSED
1 Sound Functions */
1 S.O.Kuprianov block of protection
1 S.O.Kuprianov
1 Press any key to next line
1 PROTECTOR *L*F*A* Ver 0.0
1 NAME ^
1 LENGTH TOO SMALL FROM LINE!
1 K-LIST 0-TRDOS spc-NEXT
1 Find name
1 6C FFFFooooooooEEFFFFFFEEEDDGGGGGGGGGGGGGGGGGGG"
1 0x2b,0xc3,0x55,0);
1 *** LAYOUT 91 ***
1 ((c==-1 && cs==s) ?
1 } /* end while TRUE */
1 nporpa
1 if (q >= q->_ptr && (p > q || p < q->_ptr)) break;
1 if ((*cs++ = c) == '\n') break;
1 heap_ptr=heap;
1 heap[HEAPSIZE],
1 for (j = i; j >= 0; --j)
1 ZEUS to ASCII converter
1 ZAGRUZ PROCESSA
1 RESTORE
1 Priwet, hakery!
1 NULL : s );
1 LIST BASIC UTILITE V.103
1 LENGTH TOO BIG FROM LINE! VARIABLE OR MERGE PROTECTION
1 HELLO,HACKER-FUCKER.
1 Dumping
1 Copy files
1 Adapted from "Learning to Program in C" by Thomas Plum.
1 ( n<0 ? -1 : 1 ) : 0 ;
1 !=EOF && c!='\n')
1 ZX COMPILER V2.0
1 DON'T USE "PHTool" WITH
1 1 1 1 1 1
1 ...........
1 **********************
1 ****** WARNING ******
1 u >>= 8;
1 u += *a++ + *b++;
1 q->_size += p->_size;
1 q->_ptr = p->_ptr;
1 q = p;
1 p->_size += q->_ptr->_size;
1 p->_ptr = q->_ptr->_ptr;
1 p = p->_ptr;
1 if (p->_size >= nbytes) /* big enough */
1 if (p == _allocp) /* wrapped around free list */
1 if (*argv > max) max = *argv;
1 if (! *s) return 0;
1 for (i = gap; i < num_items; ++i)
1 byte_gap = gap * size;
1 _base._size = 0;
1 _base._ptr = _allocp = q = &_base;
1 YURIN SOFT CORP PRESENT FOR 306- 22- 23
1 X= Y= D=
1 VERSION LESS THAN 3.5
1 File
1 ++s; ++t;
1 *cs++ = c;
1 *c++ = u & 0xff;
1 ***
1 ret
1 TO SAVE THIS "ZEUS"
1 Insert Target Disk then strike any key when ready
1 E RPW !"#$%&'()*+,-./DDDDDDDDDD:;<=>?@LLLLLLLLLLLLLLLLLLLLLLLLLL[\]^L`LLLLLLLLLLLLLLLLLLLLLLLLLL{|}~
1 Disked By SOFTSTAR
1 long_set(x, a[i-j] * b[j], i);
1 long_add(product, product, x);
1 for (p = list + i * size - byte_gap; p >= list; p -= byte_gap)
1 C!
1 0xed,0x5b,&de,
1 0xed,0x4b,&bc,
1 0xdd,0xe1);
1 0xdd,0x4e,6,
1 0xcd,0x3b5,
1 0xcd,0x2c9b,0xe1,
1 0xcd,0x2ab6);
1 0xcd,0x24ba);
1 0xcd,0x22e5);
1 0x7e,0x23,0x5e,
1 0x72,0x23,0x71,
1 0x4e,0x23,0x46,
1 0x2a,0x5b02,0x7e,
1 0x2a,0x5b00,0x77,
1 0x2a,&hl,
1 0x23,0x73,0x23,
1 0x23,0x70);
1 0x23,0x56,0xeb,
1 0x23,0x56,0x23,
1 0x22,0x5c5d,
1 0x22,0x5c5d);
1 "DEMO"
1 END OF DIRECTORY
1 }
1 {
1 return cast(__char_ptr) (p+1);
1 p->_size = nbytes;
1 p = _allocp;
1 if (p->_size == nbytes) q->_ptr = p->_ptr; /* just right size */
1 if ((p = cast(HEADER_PTR) sbrk(nbytes * sizeof(HEADER))) == ERROR)
1 free(p+1);
1 else
1 _allocp = q;
1 }
1 { /* split block and allocate tail */
1 swap(p, p + byte_gap, size);
1 return NULL;
1 if ((*cmp_func)(p, p + byte_gap) <= 0) break;
1 TEXTS
1 p->_size -= nbytes;
1 p->_size = nbytes;
1 p += p->_size;
1 26.02.93
1 26.
1 *****
1 Bx
1 d
1
1
1
1
1
1
1
1
1
1